Speichern ohne Speichern unter!

[Nils_13]

Hi,

Delphi-Quellcode:

procedure TForm1.speichernunter1Click(Sender: TObject);
begin
 SaveDialog1.FileEditStyle := fsComboBox;
 if SaveDialog1.Execute then
    RichEdit1.lines.savetofile(SaveDialog1.FileName);
end;

Delphi-Quellcode:

procedure TForm1.speichern1Click(Sender: TObject);
begin
  try
    if SaveDialog1.FileName <> '' then RichEdit1.lines.savetofile(SaveDialog1.FileName);
  except
    ShowMessage ('Fehler beim Speichern der Datei!');
  end;
end;

Ich möchte einfach dafür sorgen, dass es kein 'speichern unter ...' mehr gibt, indem ich alles in 'speichern' packe. Wenn eine Datei schon exestiert, wird einfach normal mit dem oben stehenden Code gespeichert (speichern1Click), wenn sie allerdings noch nicht exestiert wird eine erstellt, wie macht man das?