[Black Raider]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Par: TStringList;
i:integer;
begin
  Par := TStringList.Create;
  Par.Clear;
  Par.LoadFromFile('c:\1234567.txt');
  ExtractStrings(['.'], [' '], PChar(Par.Text), Par);
  memo2.Clear;
  for i := 1 to Par.Count-1  do
    begin
      memo2.Lines.Add(Par.Strings[i]);
    end;
  Par.Free;
end;