Systray Icon verschwindet

[atreju2oo0]

Ich hab im ProjektSource noch
Application.ShowMainForm := False; zu stehen und im onCreate

Delphi-Quellcode:

        with TrayIconData do
          begin
             cbSize := SizeOf(TrayIconData);
             Wnd := Handle;
             uID := 0;
             uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
             uCallbackMessage := WM_ICONTRAY;
             hIcon := Application.Icon.Handle;
             StrPCopy(szTip, Application.Title);
          end;
        Shell_NotifyIcon(NIM_ADD, @TrayIconData);

Damit klappts auch bei mir...