im übrigen kannst du dir das caFree sparen da dies die Standardaction des Hauptforms ist:
Delphi-Quellcode:
procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{ Sicherheitsabfrage ob Programm beendet werden soll }
if (MessageDlg('Programm beenden?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes) then
begin
Action := caNone;
end;
end;