高手请进！(0分)

以下为FOXBASE 程序，请大侠帮我转成DELPHI程序，谢谢！<br>回复请附上你的银行帐号，本人定当酬谢！<br>&nbsp;<br>LOAD XHDELKTG * 载入汇编编译文件 XHDELKTG.bin<br>USE YXM.DBF &nbsp; * 两个字段,XH为11位字符长未加密编号字段，PPXH为已经加密编号字段<br>GO TOP<br>DO WHILE .not. EOF() <br>&nbsp; &nbsp;L1= ASC(SUBSTR(XH,3))+ASC(SUBSTR(XH,6))+ASC(SUBSTR(XH,9))-95 &nbsp; <br>&nbsp; &nbsp;L1= IIF(L1&lt;1,1,L1)<br>&nbsp; &nbsp;L1= IIF(L1&gt;108,108,L1)<br>&nbsp; &nbsp;PP= CHR(L1)+XH<br>&nbsp; &nbsp;CALL XHDELKTG WITH PP &nbsp;* 调用汇编程序进行加密<br>&nbsp; &nbsp;REPL PPXH WITH PP &nbsp; &nbsp; &nbsp;* 替换加密箱号字段<br>&nbsp; &nbsp;SKIP<br>ENDDO<br>