为什么报表布局会乱？(100分)

报表的第一页很正常，但是以后的就每一页逐渐越来越乱，请问是什么原因？有什么办法解决？

详细一点，什么报表控件、代码？

QuickReport
代码：
procedure Tmo_n_sgdaccessf.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
var
cs:string;
i:integer;
begin
MoreData := True;
for I:= 1 to 17do
begin
if gdmodm.t_table.Eof then
Break;
case I of
1: pdbh.Caption :=gdmodm.t_table.FieldByName('排单号').AsString;
2: hh.Caption :=gdmodm.t_table.FieldByName('胚体').AsString;
3: outsm.caption:=gdmodm.t_table.fieldbyname('类别说明').asstring;
4: ptxx.caption:=gdmodm.t_table.FieldByName('胚项').AsString;
5: findptxx.caption:=gdmodm.t_table.FieldByName('胚项说明').AsString;
6: if datetimetostr(gdmodm.t_table.fields[9].value)='1899-12-30' then
hq.caption:=''
else
hq.caption:=gdmodm.t_table.FieldByName('货期').AsString;
7: hhxx.caption:=gdmodm.t_table.FieldByName('货项').AsString;
8: findhhxx.caption:=gdmodm.t_table.FieldByName('货项说明').AsString;
9: quan.caption:=gdmodm.t_table.FieldByName('数量').AsString;
10: ptsm.caption:=gdmodm.t_table.FieldByName('胚体说明').AsString;
11: zhsm.caption:=gdmodm.t_table.FieldByName('做货说明').AsString;
12: pdhh.Caption:=gdmodm.t_table.FieldByName('货号').AsString;
13: if (gdmodm.t_table.fieldbyname('货项').asstring<>'06') and (gdmodm.t_table.fieldbyname('货项').asstring<>'08') then
check.caption:='叶修福'
else
check.caption:='';
14: findfacode.Caption:=gdmodm.t_table.fieldbyname('排单类别').asstring;
15: pdhhptxx.Caption:=gdmodm.t_table.fieldbyname('成品项').asstring;
16: findpdhhptxx.Caption:=gdmodm.t_table.fieldbyname('成品项说明').asstring;
17: if gdmodm.t_table.fieldbyname('货项').asstring<>'08' then
begin
price.Caption:=gdmodm.t_table.fieldbyname('参考价').asstring;
cprice.caption:='';
cpriceh.Caption:='';
end
else
begin
price.caption:=gdmodm.t_table.fieldbyname('参考价').asstring;
cpriceh.caption:='品牌价';
cprice.Caption:=gdmodm.t_table.fieldbyname('品牌价').asstring;
end;
end;
end;

if gdmodm.t_table.fieldbyname('模板数').AsInteger=0 then
begin
QRLMubanQty.Caption:=''
end
else
begin
QRLMubanQty.Caption:=gdmodm.t_table.fieldbyname('模板数').AsString;
end;

gdmodm.np_stock_t.Active:=false;
gdmodm.np_stock_t.active:=true;
cs:=gdmodm.np_stock_t.fieldbyname('findpath').asstring+'/'+
gdmodm.np_stock_t.fieldbyname('pic1').asstring+'.jpg';
if fileexists(cs) then
begin
QRImage1.Picture.LoadFromFile(cs)
end else
qrimage1.Picture.loadfromfile('');
if gdmodm.t_table.Eof then
MoreData := False;
gdmodm.t_table.Next;

end;

接受答案了.