var DmoObject: OleVariant;
   i: Integer;
begin
   List.Clear;
   try
       DmoObject := CreateOleObject('SQLDMO.SQLServer');
       DmoObject := DmoObject.Application;
       DmoObject := DmoObject.ListAvailableSQLServers;
       for i:=1 to DmoObject.Count do
           if (Length(trim(DmoObject.Item(i))) > 0) then 
             List.AddObject(AnsiUpperCase(DmoObject.Item(i)), nil);
   except
       MessageDlg( Не установлен SQLDMO.SQLServer, определить список серверов не удалось.', mtWarning, [mbOK], 0);
   end;