Save-Dialog: FileName vorgeben

[se0man]

hm...also sieht nicht so aus.
Habe Testprojekt erstellt und die einzigen zwei Prozeduren
in meiner einzigen Funktion sind

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog.Execute;
end;

procedure TForm1.SaveDialogShow(Sender: TObject);
begin
  SaveDialog.FileName := 'test';
  MessageDlg('Erfolgreich eingetragen (in Eigenschaft FileName)',mtInformation,[mbOK],1);
end;

Das Ergebnis bleibt dasselbe:

Beim Klicken auf Button1 zeigt er die Message an
und schließlich den SaveDialog ohne Dateinamen-Vorschlag.
Wenn ich diesen nun abbreche,
und erneut auf den Button1 klicke,
erhalte ich die Message und dann den
erwünschten SaveDialog MIT Dateinamen-Vorschlag...

Irgendwelche anderen Ideen?

-se0man