procedure TPASSForm.FormCreate(Sender: TObject);
var
i: integer;
SQLServer: Variant;
ServerList: Variant;
begin
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
begin
combobox1.Items.Clear;
combobox1.Items.Add (Serverlist.item(i));
combobox1.ItemIndex := 0;
end;
Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;

以上是我的程式碼，我的mssql安裝在同一台電腦，但為何我的combobx1的list是空的，找不到sqlserver，我確定sqlserver執行沒有問題。

對不起，剛的的程式有誤，我做了修改，現在程式碼如下:

try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
combobox1.Items.Clear;
for i := 1 to Serverlist.Count do
begin
combobox1.Items.Add (Serverlist.item(i));
end;
combobox1.ItemIndex := 0;
Finally
SQLServer := NULL;
ServerList := NULL;
end;

可是run的結果，還是抓不到任何SQL Server，哪位可以告訴我問題在哪?

請你改用 ADOConnection 試試

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List:= TStringList.Create;
try
ADOConnection1.GetTableNames(List);
ListBox1.Items:= List;
finally
FreeAndNil(List);
end;
end;

你的os是不是有防火牆...如果有的話請將1433及1434這兩個port打開