在DELPHI里如何获取当前使用的SQL SERVER服务器的机器名和服务器名？

Question

var
   SQLServer:Variant;
   ServerList:Variant;
   i,nServers:integer;
begin
  if Combobox1.Items.Count=0 then
  begin
    try
      SQLServer := CreateOleObject('SQLDMO.Application');
      ServerList:= SQLServer.ListAvailableSQLServers;
      nServers:=ServerList.Count;
      Combobox1.Clear;
      for i := 1 to nservers do
          Combobox1.Items.Add(ServerList.Item(i));
      SQLServer:=Unassigned;
      serverList:=Unassigned;
    except
    end;
  end;
end;

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   ServerStr:String;//SQL Server的服务器名称
begin
     with ADOQuery1 do
     begin
        close;
        sql.clear;
        sql.add('select '+Trim(edit1.text)+' as hh');
        open;
        ServerStr:=fieldbyname('hh').Asstring;
        ShowMessage(ServerStr);
     end;
end;

Answer 2

补充up:
  
  edit1.text:='@@SERVERNAME';