Eliminar el espacio como delimiter por defecto

[[egostar]]

Empezado por coso

Hola,
¿este codigo te funciona?

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   i: Integer;
   Linea: string;
begin
   DoubleBuffered := true;
   Memo1.Lines.LoadFromFile('...');
   Memo1.Lines.text := stringreplace(Memo1.Lines.text,#9,' ',[rfReplaceAll]);
   Memo2.Delimitier := ';';
   Memo2.Lines.Delimitiedtext := Memo1.Lines.Text;
end;

Hola coso,

Si gracias, esa es la forma simplificada de hacerlo, sin embargo en este caso necesito mostrar la información tal y como lo tiene el archivo y después hacer un listado con datos del mismo archivo, el tema es que necesito que el espacio no lo considere como delimiter por ejemplo

El Archivo tiene esta estructura:

Juan Pérez Martínez;jpm@isp.com;Compañia Universal

Necesito que el otro memo muestre esto:

Juan Pérez Martínez
jpm@isp.com
Compañia Universal
=================

Pero como está tomando el caracter espacio como delimiter, me hace esto

Juan
Pérez
Martínez
jpm@isp.com
Compañia
Universal
=================

Yo estoy cambiando el espacio por un guion bajo, pero no es lo que necesito.

Juan_Pérez_Martínez
jpm@isp.com
Compañia_Universal
=================

Espero haber sido más claro.

Salud OS