条形码code128在delphi7生成算法