jak w TNotifyIconData obsłuzyć kliknięcie w Tray bo uCallBackMessage nie chce zwracac komunikatu o kliknięciu:

podaję uCallBackMessage:=WM_USER+1 a następnie:

...
Application.OnMessage:=Moja;

procedure Moja(var Msg: TMsg; var Handled: Boolean);
begin
 if msg.message=WM_USER+1 then
 Application.Teriminate; // obojętne co tu będzie to nie działa... :(
end;

Zaznacza ze wiem ze mozna to zrobic przez WndProc albo procedure obsługujacą komunikat WM_USER+1 ale mnie chodzi o takie rozwiązanie...