这段统计语句为何执行不行?

Edit4.text框中能显示统计数据
Edit5.text框中不能显示统计数据

部分代码:

with ADOQuery1 do
begin
close;
SQL.Clear;
sql.Add(sql_str); //添加SQL查询语句
open;
sum:=0;
summ:=0;
if N54.Checked=true then begin
first;
while not eof do
begin
if ADOQuery1.fieldbyname('管道段长度').asstring<>'' then
sum:=sum+ADOQuery1.fieldbyname('管道段长度').value;
if ADOQuery1.fieldbyname('总孔数').asstring<>'' then
summ:=sum+ADOQuery1.fieldbyname('总孔数').value;
next;
end;
Edit4.text:=inttostr(sum);
Edit5.text:=inttostr(summ);