procedure GetSqlServerName(cobServerName: TComboBox);
var
SQLServer: Variant;
ServerList: Variant;
i, nServers: integer;
begin
cobServerName.Clear;
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
nServers := ServerList.Count;
cobServerName.Clear;
for i := 1 to nservers do
cobServerName.Items.Add(ServerList.Item(i));
SQLServer := null;
serverList := null;
end;
