CASPER_Y, попробуем еще раз по шагам:
вставляем этот пример в HiAsm
[code:1]Add(MainForm,1444221,161,119) {
Left=20
Top=105
}
Add(TrayIcon,7261773,224,175)
{
Hint="Щелкни правой крысой"
link(onClick,11462334:doCase,[])
}
Add(Button,15505985,161,182)
{
Left=80
Top=45
Width=135
Caption="Свернуть в трей"
link(onClick,7261773:doHide,[])
}
Add(PopupMenu,846197,336,175)
{
Menu=#10:Развернуть|1:-|5:Выход|
link(onClick,5628450:doEvent,[(387,181)(387,181)])
}
Add(Case,11462334,273,175)
{
Value=Integer(1)
link(onTrue,846197:doPopupHere,[(320,188)(320,188)])
}
Add(IndexToChanel,5628450,392,175)
{
Count=3
link(onEvent1,7261773:doShow,[(438,181)(438,156)(214,156)(214,181)])
link(onEvent3,1444221:doClose,[(438,195)(438,227)(144,227)(144,146)])
}
[/code:1]
и описываем тут все, что делаем и видим.
Я проверил на Delphi и FPC(а так же FPC2) работает все как надо без указанных выше глюков.