FormClose aufrufen und ausführen !!!

[HolgerCW]

Hallo zusammen,

möchte aus einer procedure die TForm.FormClose aufrufen, so dass sich das Fenster TForm auch schliesst.

So habe ich es versucht:

Delphi-Quellcode:

procedure TFormPasswort.BitBtnOKClick(Sender: TObject);
var
 Action: TCloseAction;
begin
 Action := caHide;
 FormPasswort.FormClose(Sender, Action);
end;

procedure TFormPasswort.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ED_Passwort1.text := '';
 ED_Passwort2.text := '';
end;

Es geht nur über das X oben rechts auf der Form. Wie schaffe ich das über den BitBtnOK ?

Gruss

Holger