Свернуть в трей

[Nice42ru]

Помогите свернуть программу в трей используя компонент CoolTrayIcon.

[Nice42ru]

Type
Procedure WinManager(Sender:TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
   application.OnMinimize:=winmanager;
end;

Procedure Tform1.WinManager(Sender: TObject);
begin
Form1.Hide;
CoolTrayIcon1.IconVisible:= True;
end;

Но иконка появляется только тогда, когда форма уже свёрнута и жмёш по ней на Панеле задач