Use StringGrid2File procedure to save TStringGrid to file. Use File2StringGrig to restore TStringGrid from file.
procedure TForm1.File2StringGrid(StringGrid: TStringGrid; FileName: String); var F: TextFile; Tmp, x, y: Integer; TmpStr: string; begin AssignFile(F, FileName); Reset(F); Readln(F, Tmp); StringGrid.ColCount:=Tmp; Readln(F, Tmp); StringGrid.RowCount:=Tmp; for x:=0 to StringGrid.ColCount-1 do for y:=0 to StringGrid.RowCount-1 do begin Readln(F, TmpStr); StringGrid.Cells[x,y]:=TmpStr; end; CloseFile(F); end; procedure TForm1.StringGrid2File(StringGrid: TStringGrid; FileName: String); var F: TextFile; x, y: Integer; begin AssignFile(F, FileName); Rewrite(F); Writeln(F, StringGrid.ColCount); Writeln(F, StringGrid.RowCount); for x:=0 to StringGrid.ColCount-1 do for y:=0 to StringGrid.RowCount-1 do Writeln(F, StringGrid.Cells[x,y]); CloseFile(F); end;