var
fontname: string;
initialization
fontname := '..\ROMs\CBM.ttf';
AddFontResource(PChar(fontname));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
finalization
RemoveFontResource(PChar(fontname));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end.
you can load the font on runtime:
at end of FormC64.pas: