delphi中使用sqldmo 问题！

Question

引用SQLDMO_TLB
用如下代码试试，这里可以判断是否正确var
  ApplicationDMO: _Application;
  NameList1: NameList;
  i: integer;
begin
  ApplicationDMO := CoApplication.Create;
  NameList1 := ApplicationDMo.ListAvailableSQLServers;
  for i := 1 to  NameList1.Count do
    ListBox1.Items.Add(NameList1.Item(i));

Answer 1

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;
执行结果是什么？