[everlast]

Код:

procedure TBaseForm.SaveGrid(Sender: TObject);
var
f:textfile;
x,y:integer;
begin
assignfile(f,'Base.zap');
rewrite(f);
writeln(f,StringGrid1.colcount);
writeln(f,StringGrid1.rowcount);
for i:=0 to StringGrid1.colcount - 1 do
for j:=0 to stringGrid1.Rowcount - 1 do
writeln(f,StringGrid1.cells[x,y]);
closefile(f);
end;