*****搜索服务器时总是出现"Undeclared identifier: 'CreateOleObject'的错误.在线等待，得到正确答案马上给分

使用以下代码搜索服务器时总是出现"Undeclared identifier: 'CreateOleObject'的错误,是什么原因,怎样解决。在线等待，得到正确答案马上给分Var
 SQLServer:Variant;
 ServerList:Variant;
 i,nServers:integer;
 sRetValue:String;
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;