Source position: diskfont.pas line 467
function WriteFontContents(
FontsLock: LongInt;
const FontName: PChar;
FontContentsHeader: PFontContentsHeader
):LongInt;