AnnGetUserHandles example for C++ Builder

void TForm1::ExampleGetAnnUserHandles(HANNOBJECT hObject )
{
   long nCount ;

   LEADAnn1->AnnGetUserHandles (hObject);
   nCount = LEADAnn1->AnnUserHandlesCount;
   if( nCount > 0 )
   {
      LEADAnn1->AnnGetUserHandle( hObject, 0);
      ShowMessage ( "uIndex = 0 \n nID = " + IntToStr(LEADAnn1->AnnHandle->ID) + "\n" +
                    "ContainerX = " + IntToStr((int)LEADAnn1->AnnHandle->ContainerX) + "\n" +
                    "ContainerY = " + IntToStr((int)LEADAnn1->AnnHandle->ContainerY) + "\n" +
                    "CliantX = " + IntToStr(LEADAnn1->AnnHandle->ClientX) + "\n" +
                    "ClientY = " + IntToStr(LEADAnn1->AnnHandle->ClientY) + "\n" +
                    "bVisible = " + IntToStr(LEADAnn1->AnnHandle->Visible) + "\n" +
                    "PenColor = " + IntToStr(LEADAnn1->AnnHandle->PenColor) + "\n" +
                    "FillColor = " + IntToStr(LEADAnn1->AnnHandle->FillColor) + "\n" +
                    "Shape = " + IntToStr(LEADAnn1->AnnHandle->Shape));
   }
   else
      ShowMessage( "No User Handles");
}