Контексное меню называется =)
Вот смотри:
http://denasoft.xost.ru/tray.txt
Чтобы PopupMenu вызывался доработать код чем то вроде этого:
Код:
procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var MouseCo: TPoint;
begin
GetCursorPos(MouseCo);
case Msg.LParam of
WM_LBUTTONUP: Form1.Visible:=true;
WM_RBUTTONUP: PopupMenu1.Popup(MouseCo.X, MouseCo.y);
end;
end;