delphi 生成code39条码的单元文件。已经封装成类，调用时指定Canvas和需要绘制的条码字符串即可。