delphi中使用sqldmo 问题！(100分)

我使用如下代码来获得当前可用的sql server服务器（我已注册了sqldmo.dll）,
并且在delphi中import过了，可还是得不到可用的服务器，请问谁能解决？

var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end;