TApplicationEvents funktioniert nicht

[mumu]

ich habe ein programm ohne mainform. Ich habe auf einem Formular die Komponente TApplicationEvents eingefügt.

und anschließend folgende funktion implementiert:

Delphi-Quellcode:

procedure TWindows_Oberflaeche_anpassen.ApplicationEvents1Minimize(
  Sender: TObject);
begin
  if WindowState = wsMinimized then
    Application.Minimize;
end;

aber warum wird die nicht beim minimieren aufgerufen. sie ist definitiv der tapplicationevents-komponente zugewiesen.

gruß