小问题,大送分!

请问我这段打印序为什么只能打印第一条纪录!
procedure TscorefoundForm.prepareprint();
var
leftvalue:integer;
alabel:TQRLabel;
atext:TQRDBText;
i:integer;
begin
leftvalue:=0;
dayinform.QRLabel3.Caption:=banji.Text;
dayinform.QRLabel4.Caption:=xueqi.Text;
with adoquery8 do
begin
close;
adoquery8.SQL.text:='select * from foundscore ';
open;
for i:=0 to adoquery8.FieldCount-1 do  //动态添加字段
begin
with dayinform do
begin
aLabel := TQRLabel.Create(dayinform);
aLabel.Parent :=TitleBand1;
with aLabel do
begin
top:=10;
left:=leftvalue;
Alignment:=tacenter;
caption:=adoquery8.Fields[i].FieldName;
end;
aText:= TQRDbText.Create(dayinform);
aText.Parent :=DetailBand1;
with aText do
begin
top:=10;
Left:=leftvalue;
dataset:=adoquery8;
datafield:=adoquery8.Fields[i].FieldName;
Alignment:=tacenter;
end;
end;
leftvalue:=leftvalue+70;
end;
end;
end;