[[basti]]

Puedes utilizar la clase TStringList.

Código Delphi [-]
  sl := TStringList.Create;

  sl.LoadFromFile('c:\archivo.txt');
  sl.Delimiter := ' ';
  sl.DelimitedText := sl.Text;
  
  for i := 0 to sl.Count - 1 do
    Memo1.Lines.Add(sl[i]);

  sl.Free;