String Grid speichern nur mit Fehler

[IronBytes]

Hallo Zusammen

Ich bin schon länger auf der Suche nach einem Code eine StringGrid abzuspeichern und wieder genau so einzulesen. Leider gelingt mir das nicht mehr.
In meiner Stinggrid werden auch drei Memos eingetragen wo vermutlich auch das Problem passiert, da nach dem Memo immer min. ein Absatz existiert

Delphi-Quellcode:

procedure TForm2.BitBtn5Click(Sender: TObject);

var
  F: TStringList;
  x1,y1: Integer;
begin

  F := TStringList.Create;
  SaveDialog1.Filter := 'Datenbank (*.dbs)|*.DBS';
  if savedialog1.Execute then begin;

  try
    //F.Add(IntToStr(StringGrid1.RowCount));
    //F.Add(IntToStr(StringGrid1.ColCount));
    for y1 := 1 to 500 do begin;

    for x1 := 1 to 70 do begin;

      F.Add(StringGrid1.cells[x1,y1]);
  end;
  end;



    F.SaveToFile(savedialog1.FileName+'.dbs');
  finally
    F.Free;
  end;
  end;
  end;




procedure TForm2.BitBtn6Click(Sender: TObject);

 var
  F: TStringList;
  x1,y1,a: Integer;


begin
OpenDialog1.Filter := 'Datenbank (*.dbs)|*.DBS';
if Opendialog1.Execute then begin;

  a:=0;
  F := TStringList.Create;
  try
    F.LoadFromFile(opendialog1.FileName);
    for y1 := 1 to 500 do begin;

    for x1 := 1 to 70 do begin;
     a:=a+1;
                StringGrid1.cells[x1,y1]:= F.Strings[a-1];
  end;


  end;
  finally
    F.Free;
  end;
end;
 end;

Hat jemand eine Idee wie man das Grid genau so lesen kann wie es gespeichert wird ?.

Grüße Thomas