Source position: rlmetavcl.pas line 60
function ToMetaFontPitch(
aSource: TFontPitch
):TRLMetaFontPitch;