AnnSetFontBond example for Delphi

procedure TForm1.TestAnnFontBold ( hAnnObject: HANNOBJECT );
var
   IsBold: Boolean;{ Is the object’s text bold }
begin
   { Set the font to bold, unless it already is }
   LEADAnn1.AnnGetFontBold ( hAnnObject, IsBold );
   if ( IsBold = TRUE ) then
       ShowMessage ( 'Already bold' )
   else
       LEAdAnn1.AnnSetFontBold ( hAnnObject, True, False );
end;