[Neftali [Germán.Estévez]]

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
     // Crear
     TS := TStringList.Create();
     // proteccion para liberar
     try
       // Asignar
       TS.Delimiter := separador;
       TS.DelimitedText := cadena;
       // Obtener los trozos
       primeraParte := TS[0];
       segundaParte := TS[1];
     finally
       // Liberar
       TS.Free;
     end;
   end;