AnnSetFontName example for C++ Builder

void TForm1::TestAnnFontName ( HANNOBJECT hAnnObject )
{
   AnsiString strFontName;/* The object’s font name */

   /* Get the current font name */
   LEADAnn1->AnnGetFontName ( hAnnObject, strFontName );
   /* Set the font to Times New Roman, unless it already is */
   if ( lstrcmp(strFontName.c_str(),"Times New Roman" )== 0 )
       ShowMessage ( "Already Times New Roman" );
   else
       LEADAnn1->AnnSetFontName ( hAnnObject, "Times New Roman", false );
}