ZXingQRCOde二维码控件，在delphi XE以上版本可以使用。这是一个Demo实例。