Stringgrid zapis do INI

Tak wyglada zapis ini

var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create('bank.ini');
  Ini.WriteString('sekcja1','nazwa1',Edit43.Text);

  Ini.Free;

a tak wyglada zapis string grida do pliku:

var

f:textfile;
x,y:integer;
a:string;
begin
a:=datetostr(date);

if SaveDialog1.Execute then
begin
assignfile(f,savedialog1.filename+'--TELEFONY'+' '+a);
rewrite(f);
writeln (f,stringgrid1.colcount);
writeln (f,stringgrid1.rowcount);
For X:=0 to stringgrid1.colcount-1 do
For Y:=0 to stringgrid1.rowcount-1 do
writeln (F,stringgrid1.cells[x,y]);
closefile (f);
end;

Proboje to jakos ze soba posklejac bo nie zabardzo rozumiem nie ktorych czesci tego kodu.. czy moglby ktos pomoc ?

Cos takiego ?

var
ini:tinifile;
f:textfile;
x,y:integer;
a:string;

begin

Ini := TIniFile.Create('tele_stat.ini');
Ini.WriteString('sekcja1','nazwa1',f,stringgrid1.colcount);
Ini.WriteString('sekcja1','nazwa1',f,stringgrid1.rowcount);
For X:=0 to stringgrid1.colcount-1 do
For Y:=0 to stringgrid1.rowcount-1 do
Ini.WriteString('sekcja1','nazwa1',F,stringgrid1.cells[x,y]););
  Ini.Free;
end;