Lista de clientes del BDE

[aberruete]

Tengo una aplicación cliente-servidor que funciona con paradox. Tanto
desde el cliente como desde el servidor se pueden modificar las tablas; si
uno está editando un registro, a los demás les avisa de registro bloqueado;
si uno modifica un registro se refresca en los otros ... es decir perfecto
.

Ahora bien, cuando desde el servidor ejecuto el siguiente código para saber
los usuarios activos del BDE, sólo me indica los usuarios que hay activos
en el servidor, si hay algún cliente trabajando no me lo muestra.

procedure GetUsers(UserList: TStrings);
var
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  UserList.Clear;
  Check(DbiOpenUserList(TmpCursor));
  try
	repeat
	  Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
	  if Rslt <> DBIERR_EOF then
		UserList.Add(UsrDesc.szUserName);
	until Rslt <> DBIERR_NONE;
  finally
	Check(DbiCloseCursor(TmpCursor));
  end;
end;

El código está sacado de la página del dr. Marteens. En el archivo PDOXUSRS.NET del directorio net veo como aparece el nombre del cliente cuando se conecta. Alguien sabe porqué falla el código.Gracias anticipadas.