StringGrid speichern/laden

[glkgereon]

moin

ich speichere den inhalt eines stringgrids mit dieser procedure:

Delphi-Quellcode:

procedure TForm_search.Button3Click(Sender: TObject);
var i:integer;
    t:TStringList;
begin
  t:=TStringList.Create;
  t.Add(inttostr(StringGrid2.RowCount-1));
  t.Add(inttostr(StringGrid2.ColCount-1));
  for i:= 0 to StringGrid2.ColCount-1 do
    t.AddStrings(StringGrid2.Cols[i]);
  t.SaveToFile('Suchergebnisse ['+StringGrid1.Cells[1,1]+'] - '+StringGrid1.Cells[0,1]+'.txt');
  t.Free;
end;

nun will ich das wieder auslesen, ich hatte mir das so überlegt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var dialog:TOpenDialog;
    t:TStringList;
    cols,rows, i, j:integer;
begin
  dialog:=TOpenDialog.Create(Form1);
  t:=TStringList.Create;
  if dialog.Execute then
    begin
    t.LoadFromFile(dialog.FileName);
    rows:=strtoint(t[0]);
    t.Delete(0);
    cols:=strtoint(t[0]);
    t.Delete(0);
    StringGrid1.ColCount:=cols;
    StringGrid1.RowCount:=rows;
    for i:=0 to rows do
      for j:=0 to cols do
        StringGrid1.Cells[j,i]:=t[j*i+i];
    end;
  dialog.Free;
  t.Free;

aber irgendwas stimmt da noch nicht..was?