AnnSetFontUnderline example for Delphi

procedure TForm1.TestAnnFontUnderline ( hAnnObject: HANNOBJECT );
var
   bUnderLine: Boolean; { Underline property of  the object’s text  }
begin
   { Set the font to have an underline, unless it already has one }
   LEADAnn1.AnnGetFontUnderline ( hAnnObject, bUnderLine );
   if ( bUnderLine = TRUE ) then
       ShowMessage ( 'Already has an underline' )
   else
       LEADAnn1.AnnSetFontUnderline ( hAnnObject, True, False );
end;