Separar espacios de un txt en varios memo

[ecfisa]

Hola.

Código Delphi [-]
procedure PasarAMemos(NomArch: string; M1,M2,M3: TMemo);
var
  F: TextFile;
  TS: TStrings;
  s: string;
begin
  AssignFile(F, NomArch);
  try
    Reset(F);
    ReadLn(F);// desactivá esta linea para que muestre MEMO1,MEMO2 y MEMO3
    try
      TS:= TStringList.Create;
      TS.Delimiter:= ' ';
      while not Eof(F) do
      begin
        ReadLn(F,s);
        TS.DelimitedText:= s;
        M1.Lines.Add(TS[0]);
        M2.Lines.Add(TS[1]);
        M3.Lines.Add(TS[2]);
      end;
    finally
      TS.Free;
    end;
  finally
    CloseFile(F);
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
...
  Memo1.Clear;
  Memo2.Clear;
  Memo3.Clear;
  PasarAMemos('C:\TU_ARCHIVO.TXT', Memo1,Memo2,Memo3);
...

Saludos.