Добавить шрифт (файл .fon, .fot, .fnt, .ttf) в систему можно следующим образом:

{$IFDEF WIN32}

  AddFontResource( PChar( my_font_PathName { AnsiString } ) );

{$ELSE}

var

 ss  : array [ 0..255 ] of Char;

 AddFontResource ( StrPCopy ( ss, my_font_PathName ));

{$ENDIF}

 SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );

{$IFDEF WIN32}

  RemoveFontResource ( PChar(my_font_PathName) );

{$ELSE}

  RemoveFontResource ( StrPCopy ( ss, my_font_PathName ));

{$ENDIF}

  SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );