一个关于用delphi编写的条形码的代码。生成条形码。