汇编与pascal

以下为FOXBASE 程序，请大侠帮我转成DELPHI程序，谢谢！

LOAD XHDELKTG * 载入汇编编译文件 XHDELKTG.bin
USE YXM.DBF   * 两个字段,XH为11位字符长未加密编号字段，PPXH为已经加密编号字段
GO TOP
DO WHILE .not. EOF()
   L1= ASC(SUBSTR(XH,3))+ASC(SUBSTR(XH,6))+ASC(SUBSTR(XH,9))-95
   L1= IIF(L1<1,1,L1)
   L1= IIF(L1>108,108,L1)
   PP= CHR(L1)+XH
   CALL XHDELKTG WITH PP  * 调用汇编程序进行加密
   REPL PPXH WITH PP      * 替换加密箱号字段
   SKIP
ENDDO