Delphi-Quellcode:
procedure TFMainForm.Exit(Sender: TObject);
begin
FMainForm.Close;
end;
Spätestens wenn es um Vererbung geht, solltest du die Benutzung der hässlichen globalen Formvariablen unterlassen - ruft eine abgeleitete Klasse diesen Code auf, wird nicht ihre eigene Close-Methode aufgerufen, sondern die der (wahrscheinlich gar nicht erstellten) globalen Mainform-Instanz.