请教，一个比较怪的问题！谢谢！

procedure TForm1.Button2Click(Sender: TObject);VAR         sqlsever,serverlist:variant;
         i,nSevers:integer;
        // sRetValue:string;
begin
         sqlsever:=createoleobject('sqldmo.application');// variant类型可以做CreateOleObject函数的返回值
         serverlist:=sqlsever.listavailablesqlservers;
         nsevers:=serverlist.count;
         for i:=1 to nsevers do
             COMBOBOX1.Items.Add(serverlist.item(i));
             sqlsever:=unassigned;//注意variant类型的释放方法
             serverlist:=unassigned;
end;
combobox1  里得到的是 ;lcv\sdd    (sql server  名称）可是我把 上面这段程序写别的工程里 combobox1  里得到的是 ;local 我希望得到的是 combobox1  里得到的是 ;lcv\sdd    (sql server  名称）
各位大哥，有什么办法可想吗？谢谢！