Was muss in die Function rein für trayiconpopupmenü

[Mackhack]

Hi,

wo müsste ich denn den Code hier einfügen damit wenn ich auf den Minimieren-Button klicke das Programm nicht in die Taskleiste geht sondern wieder in die SysTray?

Delphi-Quellcode:

If IsWindowVisible(Handle) Then
  Begin
    ShowWindow(GetWindow(Handle, GW_OWNER), SW_HIDE);
    Hide;
  End;

Danke!