Service mit PopupMenu

[Nalincah]

Ich versuch grad einen Dienst zu installieren und zu starten der mir im TNA ein Symbol anzeigen, bei dem ich mit der rechten maustaste ein popupmenu angezeigt bekomme.

Hab ne Service-Anwendung gestartet, in das Fenster ein CoolTrayIcon reingepackt, ein Popupmenu, das popup mit dem tray verbunden und dann einen eintrag ins popup hinzugefügt der mir eine nachricht anzeigt:

Delphi-Quellcode:

unit uService;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  Menus, CoolTrayIcon;

type
  TService1 = class(TService)
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Ok1: TMenuItem;
    procedure Ok1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.Ok1Click(Sender: TObject);
begin
  ShowMessage('Hallo');
end;

end.

Installieren und starten kann ich den service, aber es wird kein trayicon angezeigt. Wieso klappt das nicht? Im Beispiel des CoolTrayIcons klappt es doch auch. Ich finde irgendwie keinen unterschied was das angeht