[Страдалецъ]

Код:

procedure TForm20.btnSaveClick(Sender: TObject);
var
  R, C: Integer;
begin
 AssignFile(F, 'd:\GridData.txt');
 Rewrite(F);
 WriteLn(F, StringGrid1.ColCount, ' ', StringGrid1.RowCount);
 for R := StringGrid1.FixedRows to StringGrid1.RowCount - 1
 do for C := StringGrid1.FixedCols to StringGrid1.ColCount - 1
    do WriteLn(F, StringGrid1.Cells[C, R]);
 CloseFile(F);
end;

Код:

procedure TForm20.btnLoadClick(Sender: TObject);
var
  R, C, ColCount, RowCount: Integer;
  CellData: String;
begin
 AssignFile(F, 'd:\GridData.txt');
 Reset(F);
 ReadLn(F, ColCount, RowCount);
 StringGrid1.ColCount := ColCount;
 StringGrid1.RowCount := RowCount;
 for R := StringGrid1.FixedRows to StringGrid1.RowCount - 1
 do for C := StringGrid1.FixedCols to StringGrid1.ColCount - 1
    do begin
       ReadLn(F, CellData);
       StringGrid1.Cells[C, R] := CellData;
       end;
 CloseFile(F);
end;