Function GetSQLServerList(var List: Tstringlist): boolean;
var
   i: integer;
   sRetValue: String;
   SQLServer: Variant;
   ServerList: Variant;
begin
  Result := False;
  List.Clear;
  try
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    for i := 1 to Serverlist.Count do
      list.Add (Serverlist.item(i));
    Result := True;
  Finally
    SQLServer := NULL;
    ServerList := NULL;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  aList:TStringList;
begin
  aList:=TStringList.Create;
  GetSQLServerList(aList);
  showmessage(aList.Text);
end;

unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls;    type
  TForm2 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form2: TForm2;    implementation    {$R *.dfm}    uses ComObj;    procedure TForm2.Button1Click(Sender: TObject);
var
  SQLServer:Variant;
  ServerList:Variant;
  i:integer;
begin
  SQLServer := CreateOleObject('SQLDMO.Application');
  ServerList:= SQLServer.ListAvailableSQLServers;
  if serverlist.count<1 then  combobox1.Text := '沒有找到主機名'
  else
  begin
    combobox1.Items.Clear;
    for i:=1 to serverlist.count do  combobox1.Items.Add(serverlist.item(i)) ;
    combobox1.ItemIndex := 0;
  end;
   SQLServer:=NULL;
   serverList:=NULL;
end;    end.