AnnGetVisible example for Delphi

procedure TMainFrm.LEADAnnCtrl1AnnEnumerate (hObject: L_HANDLE);
var
   ghObject: L_HANDLE;
begin
   //tests AnnGetVisible
   if ( LEADAnnCtrl1.AnnGetVisible(hObject) ) then
      ShowMessage ( IntToStr(LEADAnnCtrl1.AnnGetType (hObject))+ ' Visible' 
   else
      ShowMessage ( IntToStr(LEADAnnCtrl1.AnnGetType (hObject))+ ' Not Visible');
end;