delphi 二维码形成并打印，源代码。