如何将毫米（MM）单位转换为像素（Pixel）单位，请大家帮帮忙呀！

我写了一个函数，但实际打印输出时与所想实现的相差甚远，大家多多帮忙哦！

Function MMToPixel(MM: Integer): Integer; Functi