Sorry hab den Quelltext reinkopiert und dann ein paar Zeilen zuviel auskommentiert.
Bekomm jetzt einen "EOleSysError" mit der Meldung "ungültige Klassenzeichenfolge"
Delphi-Quellcode:
procedure TfmSQLServer.FormCreate(Sender: TObject);
var DMOApp, SrvLst: Variant;
i: Integer;
aItem: TListItem;
begin
DMOApp := CreateOleObject('SQLDMO.Application');
SrvLst := DMOApp.ListAvailableSQLServers;
for i:=1 to SrvLst.Count do
ComboBox1.Items.Add(SrvLst.Item(i));
end;