[SCrat.ORS]

Код:

...
Var
CursorPos: TPOINT;
...

TRAYICON: begin GetCursorPos(CursorPos);
                   if lParam = WM_RBUTTONUP then begin
                   SetForegroundWindow(HandleWnd);
                   TrackPopupMenu(PopupMenu1, TPM_LEFTALIGN or TPM_LEFTBUTTON or TPM_RIGHTBUTTON, CursorPos.X, CursorPos.Y, 0, HandleWnd, nil);
                   EndMenu;
                   SendMessage(HandleWnd,WM_NULL,0,0);
                end;
...

HandleWnd - Хендл главного окна\
PopupMenu1 - Менюха