Source position: fppdf.pp line 1332
function FontUnitsTomm(
AUnits: TPDFFloat;
APointSize: TPDFFloat;
AUnitsPerEm: Integer
):single;