AnnDeleteUserHandle example for C++ Builder

//This example deletes the first user handle of an object
void TForm1::ExampleAnnDeleteUserHandle (HANNOBJECT hObject )
{
   long nCount ;

   LEADAnn1->AnnGetUserHandles (hObject);
   nCount = LEADAnn1->AnnUserHandlesCount;

   if( nCount > 0 )
      LEADAnn1->AnnDeleteUserHandle (hObject, 0);
   else
      ShowMessage("No User Handle");
}