AnnSetFontItalic example for Delphi

procedure TForm1.TestAnnFontItalic ( hAnnObject: HANNOBJECT );
var
   IsItalic: Boolean; { Is the object’s text italic }
begin
   { Set the font to italic, unless it already is }
   LEADAnn1.AnnGetFontItalic ( hAnnObject, IsItalic );
   if ( IsItalic ) then
       ShowMessage ( 'Already Italic' )
   else
       LEADAnn1.AnnSetFontItalic ( hAnnObject, true, false );
end;