Ya puestos a crear un TStringList....
Código Delphi
[-]
function PartirCadena(cadena: string; separador: char):TStringList;
begin
Result := TStringList.Create();
Result.Delimiter := separador;
Result.DelimitedText := cadena;
end;
Uso de la misma:
Código Delphi
[-]
var s:TStringList;
begin
try
s := PartirCadena('Este texto ; se partirá en 2',';');
finally
s.free;
end;
He visto hacer cosas como estas en rutinas, y funcionar funciona, aunque se sale del "estandar de trabajo con delphi".
Un saludo