高分求救，如何在程序中实现添加服务程序（Service Application）的描述信息？

Question

各位高手大家好，在程序中如何实现添加服务程序（Service Application）的描述信息？就像WIN2000中服务SERVER,描述是：提供 RPC 支持、文件、打印以及命名管道共享一样。我现在写了一个服务程序(Service Application)，但是不知道怎样在程序中给这个服务程序添加描述信息？现在只差一步了，请各位写过服务程序的高手帮忙解决，非常感激！！由于我现在很忙，最好能给我发一个已经调试通过的例子来，我的E-mail:[email protected]
非常感谢！！有高分！！

Answer 1

procedure TServer.ServiceAfterInstall(Sender: TService);
begin
    SetDescription('serverName','www.7878.com');
end;

Answer 2

to ma7ht(飞天马) :procedure TServer.ServiceAfterInstall(Sender: TService);
begin
    SetDescription('serverName','www.7878.com');
end;
中的SetDescription是在哪个单元中定义的呀
我使用时怎么编译时不认识呢？在DELPHI安装路径下找也没有
谢谢