[hrustnik]

спасибо за первое

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
AssignFile(f, SaveDialog1.FileName);
Rewrite(f);

for i := 0 to StringGrid1.RowCount-1 do
  begin
for j := 0 to StringGrid1.ColCount-1 do
begin
  s1:=s1 + '   ' + StringGrid1.Cells[j,i];
end;
writeln(f,s1);
s1:=''
  end;

end;
CloseFile(f);
end;