[Black Raider]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var inFile: TextFile;
       par: TStringList;
         s: string;
         i: integer;
begin
  AssignFile(InFile, '1.txt');
  Reset(InFile);
  Par := TStringList.Create;
  Par.Clear;
  while not Eof(InFile) do
  begin
    Readln(InFile, S);
    ExtractStrings([' '], [' '], PChar(S), Par);
  end;
  closeFile(inFile);
  StringGrid1.ColCount:=5;
  StringGrid1.RowCount:=(Par.Count+1) div 4 +1;
  for i:=0 to Par.Count-1 do
    StringGrid1.Cells[((i) mod 4)+1,((i) div 4)+1]:= par.Strings[i];
end;