Frage zu SaveDialog

[Thomm]

Wenn jemand im Datei-Menü auf "Speichern" klickt

und keine Datei ausgewählt wurde , dann gibt es eine Exception

Ich hab das mit if OpenDialog1.FileName <>''

abgefangen , ist aber nicht besonders elegant

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
begin
SaveDialog1.Options:= [ofOverwritePrompt];
if OpenDialog1.FileName <>''
then
Clientdataset1.Savetofile(OpenDialog1.FileName)
else
SaveDialog1.Execute
end;

Wie schreibt man das normalerweise ?