在用CommonDialog1.ShowFont之前要先:
CommonDialog1.flags=cdlcfscreenfonts

CommonDialog1.flags=cdlcfboth否则报错