Eliminar el espacio como delimiter por defecto

[[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.Lines.Delimitier := ';';
   Memo2.Lines.Delimitiedtext := Memo1.Lines.Text;
end;