Fenster verschwindet

[Hansa]

Hi,

könnt ihr mir noch einmal helfen? Ich glaube dann hab ichs gepackt.

Code:

procedure Form1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IF NOT LiefModul.LiefDS.IsEmpty THEN BEGIN
    if MessageDlg('Soll der Datensatz gespeichert werden ?',
      mtInformation, [mbYes, mbNo], 0) = mrYes then begin
      LiefModul.LiefDS.post;
      LiefModul.TransAction.Commit;
    END
    ELSE
      LiefModul.Transaction.Rollback;
  END;
  LiefStamm.FormShow (Sender);
end;

Ich weiß nicht wo und wie ich das unterbringen soll. Wie gesagt brauche ich noch einen Ende-Button. Wie kriege ich jetzt genau dieses FormClose in das OnClick-Event des Buttons ? Stecke vor allem wegen des zweiten Parameters Action fest. Onclick hat ja nur Sender. Den Quelltext zu kopieren ginge bestimmt auch, aber das ist wohl nicht der Sinn. Naja, andere die Delphi noch nicht so gut können, kämpfen am Anfang mit den Buttons, ich Idiot fange mit Interbase-SQL-Datenbanken im Netzwerk an.

Gruß
Hansa