Programm bei Klick auf "X" minimieren

[Matze]

Moin

Ich möchte, dass meine Anwendung per Klick auf das "X" oben rechts minimiert wird (es wird dann in der TNA eingetragen).

Versucht habe ich's so:

Delphi-Quellcode:

//OnCloseQuery
  if MinimizeAtClose then
  begin
    Application.Minimize;
    CanClose := false;
  end else
    CanClose := true;

und so:

Delphi-Quellcode:

//OnClose
  if MinimizeAtClose then
  begin
    Application.Minimize;
    Action := caNone;
  end;

beides geht nur einmal gut, danach passiert bei Klick auf "X" nichts mehr.
Und wenn ich die Anwendung so in die TNA minimiere und doppelt auf das TNA Icon klicke, wird das Fenster nur im Hintergrund sichtbar, was mir auch ein Rätsel ist.

Kann mir jemand sagen, wo der Fehler liegt?