procedure Tfrmsetserver.getserver();
var
sqlserver:variant;
serverlist:variant;
i,nservers:integer;
begin
sqlserver:=createoleobject('SQLDMO.Application');
serverlist:=sqlserver.listavailablesqlservers;
nservers:=serverlist.count;
self.ComboBox1.Clear;
for i:=1 to nservers do
self.ComboBox1.Items.Add(serverlist.item(i));
self.ComboBox1.ItemIndex:=0;
sqlserver:=NULL;
serverlist:=NULL;
end;