Hombre, por poder, sí se puede. Utilizando la rutina de dec, sería algo así:
Código Delphi
[-]
procedure PartirCadena(cadena: string; separador: char;
var primeraParte, segundaParte: string);
var
TS:TStringList;
begin
TS := TStringList.Create();
try
TS.Delimiter := separador;
TS.DelimitedText := cadena;
primeraParte := TS[0];
segundaParte := TS[1];
finally
TS.Free;
end;
end;