救急：用DELPHI编写NT服务时，如何指定依存关系？

Question

我用DELPHI编写了一个NT的服务，且设置为自动启动，可每次服务器重启后，
该服务不能自动启动。我感觉是由于该服务启动时使用了sqlserver数据库，可能
由于sqlserver服务没有启动完成，导致该服务无法启动，所以我想指定该服务的
依存关系，让它在sqlserver服务启动完毕后再启动。

Answer 1

procedure TFooParserService.ServiceBeforeInstall(Sender: TService);
begin
  {$ifdef BINDING_MSSQLSERVER}
  Self.Dependencies.Add;
  Self.Dependencies.Items[0].Name := 'MSSQLSERVER';
  {$endif}
end;

Answer 2

非常感谢RamjetZhang，还有一种类似的解决方法：
   在service的create事件中添加
   TDependency(Dependencies.add).name:='MSSQLSERVER';