procedure TForm.ListSQLServer(Sender: TObject);
var 
      dmo:OleVariant;
      I:Integer;
begin
  cmbServer.Items.Clear ;
  try
    dmo:=CreateOleObject('SQLDMO.SQLServer');
    dmo:=dmo.Application;
    dmo:=dmo.ListAvailableSQLServers;
    for I:= 1  to dmo.Count do
      if (Length(trim(dmo.Item(I))) >  0 ) and (CompareText(dmo.Item(I),'(LOCAL)')<> 0 ) then
        cmbServer.Items.Add(AnsiUpperCase(dmo.Item(I)));
    cmbServer.Text := cmbServer.Items[ 0 ];
  except
  end;
end;