Mensaje de error BDE

[david duarte]

hola!!!

ya tengo rato en este foro, pero no consigo hacer que el bde funcione en la computadora.

Lo instale, lo desinstale y lo volvi a instalar y me sigue saliendo ese error.

Lo que yo quiero es saber el numero de usuarios conectados a la base de datos, uso la siguiente funcion:

Código Delphi [-]
function GetUsers():Integer;
var
  UserList: TStringlist;
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  Result:=0;
  Check(DbiOpenUserList(TmpCursor)); ------>>> aqui me marca el error $21A6
  UserList := TStringList.Create;
  try
    UserList.Clear;
    repeat
      Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
      if Rslt <> DBIERR_EOF then
        UserList.Add(UsrDesc.szUserName);
    until Rslt <> DBIERR_NONE;
    Result := UserList.Count;
  finally
    Check(DbiCloseCursor(TmpCursor));
    FreeAndNil(UserList);
  end;
end;

La verdad es que no se que hacer. Alguien tiene alguna idea???

Gracias!!!!