procedure TForm1.FormCreate(Sender: TObject);
var
  dmo:OleVariant;
  i:Integer;
begin
  cmbServer.Items.Clear ;

  try
    dmo:=CreateOleObject('SQLDMO.SQLServer');
    dmo:=dmo.Application;
    dmo:=dmo.ListAvailableSQLServers;
    if dmo.Count >  1  then begin
      for i:=  1  to dmo.Count do
        if (Length(trim(dmo.Item(i))) >  0 ) and (CompareText(dmo.Item(i),'(LOCAL)')<> 0 ) then begin
          cmbServer.Items.Add(AnsiUpperCase(dmo.Item(i)));
        end;
    end
    else begin
      for i:=  1  to dmo.Count do
        if (Length(trim(dmo.Item(i))) >  0 ) then begin
          cmbServer.Items.Add(AnsiUpperCase(dmo.Item(i)));
        end;
    end;
  except
  end;
end;

uses AdoConEd;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ADOConnection.Close;
  ADOConnection.ConnectionString := ConnectionString.Text;
  if EditConnectionString(ADOConnection) then
  begin
    ConnectionString.Text := ADOConnection.ConnectionString;
  end;
end;