if not (csDesigning in ComponentState) then
begin
FillChar(FData, SizeOf(TNotifyIconData), 0);
with FData do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Classes.AllocateHWnd(DoMessage);
uID := UINT(Self);
hIcon := FIcon.Handle;
uFlags := NIF_ICON or NIF_MESSAGE;
uCallbackMessage := WM_SYSTEM_TRAY_NOTIFY;
end;
FApplicationHook := ApplicationHookProc;
Update();
end;