我是一个delphi新手,现在想做一个条形码生成的程序,我们公司的条形码标准为37位,用的是code128码编码规则,用户通过在我做的系统里输入37位的字符串,然后在系统上生成一个与之对应的条形码,然后再打印出来。用delphi该如何实现?