DELPHI程序里面运行一个汇编BIN文件（200人民币现金） (100分)

以下为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

procedure Caller;
var
f: Integer;
l: Integer;
Buffer: array [0..4096] of Byte;
begin
f := FileOpen('YourBin.bin');
l := FileSeek(f, 0, 2);
FileSeek(f, 0, 0);
FileRead(f, Buffer[0], l);
FileClose(f);
asm
LEA EAX, Buffer
CALL EAX
end;
end;

学习中.....

借楼主宝地，打打广告，谢谢！
阳春三月，和Borland专家--刘艺相约上海！
大家好：
　“一年之计在于春”，春天是定目标、打基础关键时刻！
无论你的目标是加薪，成为项目经理，还是让自己的技术水平更上一层楼，
都需要不断地学习，而与高手的交流，仿佛是站在巨人的肩上：站得高，看得远，助力你迅速成为Delphi高手！
应中国项目经理网邀请，Borland专家--刘艺老师将于这个三月来到上海
给大家做<<UML与DELPHI模型驱动开发>>的培训，机会难得！请热爱Delphi的朋友请抓紧时间报名！
届时将会有众多Delphi高手光临现场！热烈的现场讨论以及众多Delphi高手的面对面交流讲师本次培训的特色之一！
在温暖的三月，刘艺与众多Delphi高手与大家相约上海！

中国项目经理网相关培训链接：
[公告]阳春三月,和刘艺老师面对面讨论UML和Delphi面向对象开发！
http://www.china-pm.net/dispbbs.asp?boardID=22&amp;ID=5&amp;page=1
[公告]uml与delphi模型驱动开发课程介绍
http://www.china-pm.net/dispbbs.asp?boardID=22&amp;ID=21&amp;page=1
报名表
http://www.china-pm.net/dispbbs.asp?boardID=22&amp;ID=35&amp;page=1
中国项目经理网
2004-02-14