Az alábbi eljárás elmenti egy StringGrid teljes tartalmát a 'C:\Grid.txt' fájlba:

Procedure SaveGrid;
var f : textfile;
  x,y : integer;
begin
  assignfile (f,'c:\grid.txt');
  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; 
Ez pedig feltölti a Grid celláit a megadott fájlból:

Procedure LoadGrid;
var f : textfile;
  temp,x,y : integer;
  tempstr : string;
begin
  assignfile (f,'c:\grid.txt');
  reset (f);
  readln (f,temp);
  stringgrid.colcount:=temp;
  readln (f,temp);
  stringgrid.rowcount:=temp;
  For X:=0 to stringgrid.colcount-1 do
   For y:=0 to stringgrid.rowcount-1 do
   begin
    readln (F, tempstr);
    stringgrid.cells[x,y]:=tempstr;
   end;
  closefile (f);
end;