D7和XE5下编译测试过.单元源码为生成条码,返回Image,TBitmat等,可以根据自己的需求扩展其它功能