Trayicon-kommando

Hej Eksperter.

Jeg har fundet følgende kode, som genererer et såkaldt "trayicon":
-------------------------------------------------------------
unit trayicon;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, shellapi;

const
WM_ICONTRAY = WM_USER + 1;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TrayIconData: TNotifyIconData;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
with TrayIconData do
begin
  cbSize := SizeOf(TrayIconData);
  Wnd := Handle;
  uID := 0;
  uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
  uCallbackMessage := WM_ICONTRAY;
  hIcon := Application.Icon.Handle;
  StrPCopy(szTip, Application.Title);
end;

if Shell_NotifyIcon(NIM_ADD, @TrayIconData) then

else
  showmessage('failed');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @TrayIconData);
end;

end.
-------------------------------------------------------------
Nu er problemet bare, at jeg gerne ville have det til at udføre kommandoer, når man klikkede på det. Helst spørge, om man vil lukke programmet eller sådan noget. Men hvordan gør jeg det? Der var noget hjælp til klik-kommandoer, der hvor jeg fandt koden: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1632&lngWId=7
Men det virkede ikke.

Håber I kan hjælpe.
W13