Programm bei Klick auf "X" minimieren

[Matze]

Ich mache das mit dem CodeLib-Code.

In die TNA habe ich es dann so gegeben, da es anders per Klick auf "X" nicht ging:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  Hide;
  Shell_NotifyIcon(NIM_ADD, @IconData);
end;