怎么实现NT服务程序可视化

如何实现NT服务程序可视化
各位大虾，我自己编了一个NT服务程序，可是怎样能做到可视化，完成
与用户的交互呢？书上说添加窗体，可是我直接添加了也不行呀！

[解决办法]
var
Service1: TService1;

implementation

uses Unit2;

{$R *.DFM}

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

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

procedure TService1.ServiceCreate(Sender: TObject);
begin
Form2 := TForm2.Create(application);
Form2.ShowModal;
end;
[解决办法]
应该要设置成与桌面交互才行
[解决办法]
我有一个实例