procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: Integer;
  fs: TFileStream;
  slStrGird: TStringList;    begin
  // Save to TFileStream.
  fs := TFileStream.Create('c:\StringGrid.txt', fmCreate);
  slStrGird := TStringList.Create;
  try
    for i := 0 to StringGrid1.RowCount - 1 do
    begin
      for j := 0 to StringGrid1.ColCount - 1 do
      begin
        slStrGird.Add(StringGrid1.Cells[i, j]);
      end;
    end;        slStrGird.SaveToStream(fs);
  finally
    slStrGird.Free;
    fs.Free;
  end;
end;    procedure TForm1.Button3Click(Sender: TObject);
var
  i, j: Integer;
  fs: TFileStream;
  slStrGird: TStringList;    begin
  // Load from TFileStream.
  fs := TFileStream.Create('c:\StringGrid.txt', fmOpenRead);
  slStrGird := TStringList.Create;
  try
    slStrGird.LoadFromStream(fs);
    for i := 0 to StringGrid1.RowCount - 1 do
    begin
      for j := 0 to StringGrid1.ColCount - 1 do
      begin
        StringGrid1.Cells[i, j] := slStrGird.Strings[(i * StringGrid1.RowCount)   j];
      end;
    end;
  finally
    slStrGird.Free;
    fs.Free;
  end;
end;