Работа компонента TrayIcon

[Ichthyander]

Решил попробовать компонент LCL TTrayIcon, но ничего не получается. Подумав, что не так как-то использую свойства залез в исходники... Докопался до этого:

Код: Выделить всё

function TCustomTrayIcon.Show: Boolean;
begin
  if FVisible then Exit;
  FVisible := True;
  InternalUpdate;
  Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self);
end; 

Далее

Код: Выделить всё

class function TWSCustomTrayIcon.Show(const ATrayIcon: TCustomTrayIcon): Boolean;
begin
  Result := False;
end;


Или я что-то не понимаю или эта процедура Show никогда не сработает...
Подскажите, кто работал с этим компонентом, в чем загвоздка?
-------------
Версия 0.9.25 beta
FreePascal 2.2.0
Windows XP SP2

[Павел Ишенин]

надо смотреть TWin32WSCustomTrayIcon.Show

[Ichthyander]

надо смотреть TWin32WSCustomTrayIcon.Show

Точно: нашел! Спасибо.
Тем не менее все равно не смог заставить работать TIconTray. Может зря сборку 0.9.25 скачал... Попробую 0.9.24