DELPHI7 实现DataMatrix二维码方法

在网上找了好久没有找到免费的二维码DataMatrix代码，只有自己想办法了！在网上搜索下载了DataMatrixEncodeSDK  在VS2008中把其CPP文件编译成EXE，通过读取一个文本文件，
然后再运行这个EXE，生成BMP 二维码图片文件 ，在DELPHI中再调用图片（这个大家应该都知道，在这里不提了！）以下把文件上传给大家学习一下！
有问题可与我QQ：32784219联系！谢谢！文件下载地址如下：（为DELPH7下点击取文本）
http://115.com/file/anbfo3x6#test.rarprocedure TForm1.Button1Click(Sender: TObject);
var
   sList : TStringList;
   F : TextFile;
   FileName : String ;
begin
  //sList := TStringList.Create;
  //sList.add('145401210442 {200 {PCE {208174 {B4A  SC061-3289-001 {03 {0 { {20120718001733');
  //sList.Add('/n');
  //sList.SavetoFile('abc.txt'); //保存1.txt文件
  //sList.Free;//释放TStringList资源  AssignFile(F,'abc.txt');
  Rewrite(F);
  Write(F,'145401210442 {200 {PCE {208174 {B4A  SC061-3289-001 {03 {0 { {20120718001733');
  CloseFile(F);
  WinExec('MatrixEncode.exe',sw_show);
end;