AnnDeleteUserHandle example for Delphi

//This example deletes the first user handle of an object.
Procedure TForm1.ExampleAnnDeleteUserHandle ( hObject: HANNOBJECT );
var
   nCount: L_INT32;
begin
   LEADAnn1.AnnGetUserHandles (hObject);
   nCount:= LEADAnn1.AnnUserHandlesCount;

   if( nCount > 0 ) then
   begin
      LEADAnn1.AnnDeleteUserHandle (hObject, 0);
   end
   else
   begin
      ShowMessage('No User Handle');
   end;
end;