función split en delphi

[Los maquinas]

ahora Maquina solucionado el Split

la llamada
var
Arreglo: TStringList;
begin
Arreglo:= TStringList.Create;
Split(',',string, Arreglo);

...
..
.

procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
Assert(Assigned(Strings));
Strings.Clear;
input:='|' + StringReplace(Input, Delimiter, '| |', [rfReplaceAll])+'|';
Strings.Delimiter := ' ';
Strings.QuoteChar := '|';
Strings.DelimitedText := Input;
end;


Los Maquinas de chile