[aavov]

Код:

procedure TForm1.Button1Click(Table:TStringGrid);
 var
  List:TStringList;
  i,j,rw,cl:integer;
  doc1:TextFile;
    begin
 List:=TStringList.Create;
rw:=StringGrid1.RowCount;
 cl:=StringGrid1.ColCount;

    with Table do
  for i:=0 to rw-1 do
  for j:=0 to  cl-1 do
   List.Add(StringGrid1.Cells[j,i]);
List.SaveToFile('doc1.txt');
CloseFile(doc1);
end;
end.

Админ: Пользуемся тегами для оформлении кода!