procedure Hauptform1.Speichern1Click(Sender: TObject);
var Zeilen, Spalten, i, j: Integer;
    Tabelle: TStringList;
begin

savedialog.execute;
  // Stringliste erzeugen
  Tabelle := TStringList.Create;
  Zeilen := stringgrid1.colcount;
  Spalten := stringgrid1.rowcount;
  for i := 0 to Zeilen-1 do
  begin
    for j := 0 to Spalten-1 do
    begin
     Tabelle.Strings[i*Spalten+j] := StringGrid1.Cells[j,i] ;
    end;
  end;
  Tabelle.savetoFile (savedialog.filename+'.tab');
end;