[Delphi] Stringgrid inhalt speichern+laden?

procedure SaveStringGridToFile(StringGrid: TStringGrid; const FileName: String);
var
 F: TStringList;
 i: Integer;
begin
 F := TStringList.Create;
 try
 F.Add(IntToStr(StringGrid.RowCount));
 F.Add(IntToStr(StringGrid.ColCount));
 for i := 0 to (StringGrid.RowCount - 1) do
 F.Add(StringGrid.Rows[i].CommaText);
 F.SaveToFile(FileName);
 finally
 F.Free;
 end;
end;

procedure LoadStringGridFromFile(StringGrid: TStringGrid; const FileName: String);
var
 F: TStringList;
 i: Integer;
begin
 F := TStringList.Create;
 try
 F.LoadFromFile(FileName);
 StringGrid.RowCount := StrToInt(F[0]);
 StringGrid.ColCount := StrToInt(F[1]);
 for i := 0 to (StringGrid.RowCount - 1) do
 StringGrid.Rows[i].CommaText := F[i + 2];
 finally
 F.Free;
 end;
end;