高手帮忙看看ＤＥＬＰＨＩ计算问题 ( 积分: 50 )

代码如下：
procedure Tzyclfpb.Button1Click(Sender: TObject);
var
aaa1:real;//主料E定额合计
aaa2:real;//却CLJE库（即本月领用材料库）材料用量
aaa3:real;//却CLJE库（即本月领用材料库）材料金额
aaa4:real;// 求材料实际用量与定额用量的比重
aaa5:real;// 求材料实际领用的单价
AAA6:real;// 求所有产品消耗同种直接材料合计数量
AAA77:real;// 求所有产品消耗同种直接材料合计数量
JJJ1:STRING;
JJJ2:STRING;//材料名称
begin
ADOQuery5.Close;
ADOQuery5.SQL.Clear;
ADOQuery5.SQL.Add('SELECT * FROM CLJE where rq='''+nnnyyy+''' and CBXM<>''合计'' and CJBH='''+edit3.text+'''');
ADOQuery5.OPEN;
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('select * from bylycl where rq='''+nnnyyy+''' and CPMC<>''小计'' and cjbh='''+edit3.text+'''');
ADOQuery4.OPEN;
while not ADOQuery5.Eof do
begin
JJJ1:=ADOQuery5.fieldbyname('HHBH').Value; //材料编号
JJJ2:=ADOQuery5.fieldbyname('CBXM').Value; //材料名称
AAA2:=ADOQuery5.fieldbyname('SJCLYL').Value; //实际领用材料用量
AAA3:=ADOQuery5.fieldbyname('SJCLYLJE').Value; //实际领用材料金额
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select HHBH,CJBH,sum(zjclhx) AS ZJXHCL FROM bylycl where CJBH='''+edit3.text+''' AND HHBH='''+JJJ1+''' group by HHBH,CJBH');
ADOQuery1.OPEN;
ADOQuery1.RecordCount;
aaa6:=ADOQuery1.fieldbyname('ZJXHCL').Value; //求所有产品消耗同种直接材料合计数量 .
AAA77:=AAA6-AAA2;

如 ＡＡＡ６＝１０００，ＡＡＡ２＝５０００
ＡＡＡ７７：＝ＡＡＡ６-ＡＡＡ２
ＡＡＡ７７＝０
这是怎么回事清高手帮忙看看