Código:
Function Split(enumeracion : string): TStringList;
var
Aux : String;
i : integer;
Lista :TStringList;
begin
enumeracion := trim(enumeracion);
Lista := TStringList.create;
Aux := '';
i:=1;
while i <= length(Enumeracion) do begin
if enumeracion[i] <> ',' then begin
Aux := Aux + enumeracion[i];
end;
if enumeracion[i] = ',' then begin
Lista.Add(trim(Aux));
Aux := '';
end;
inc(i);
end;
if Aux <> '' then begin
Lista.Add(trim(Aux));
end;
result := lista;
end;