AnnSetFontName example for Delphi

procedure TForm1.TestAnnFontName ( hAnnObject: HANNOBJECT );
var
   strFontName: String;{ The object’s font name }
begin
   { Get the current font name }
   LEADAnn1.AnnGetFontName(hAnnObject, strFontName);
   { Set the font to Times New Roman, unless it already is }
   if ( strFontName = 'Times New Roman' ) then
       ShowMessage ( 'Already Times New Roman' )
   else
       LEADAnn1.AnnSetFontName ( hAnnObject, 'Times New Roman', False );
end;