AnnSetFontStrikeThrough example for Delphi

procedure TForm1.TestAnnFontStrike ( hAnnObject: HANNOBJECT );
var
   bStrikeThrough: Boolean;{ Strike-through property of  the object’s text  }
begin
   { Set the font to have a strike-through, unless it already has one }
   LEADAnn1.AnnGetFontStrikeThrough ( hAnnObject, bStrikeThrough );
   if ( bStrikeThrough = True ) then
       ShowMessage ( 'Already has strike-through' )
   else
      LEADAnn1.AnnSetFontStrikeThrough ( hAnnObject, True, False );
end;