komischer Bug in QuickReport

[freakTAB]

Delphi-Quellcode:

var  IdxList:TStrings;
     i,y:integer;

procedure TQRep_MB.QRep_MBBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  IdxList := GetStr(T_Monat,'Daten',0);
  i := -1;
end;

procedure TQRep_MB.QRep_MBNeedData(Sender: TObject; var MoreData: Boolean);
begin
  i := i+1;
  if i < IdxList.Count then
  begin
    LadeLieferant(StrToInt(IdxList.Strings[i]));
    LadeMonat(StrToInt(IdxList.Strings[i]));
    y := 0;

    QRL_LiefNr.Caption := Lieferant.L_Nr;
    QRL_LiefName.Caption := Lieferant.L_Name;
    MoreData := TRUE;
  end
  else MoreData := FALSE;
end;

procedure TQRep_MB.QRSubDetail1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  y:= y+1;
  if y < 31 then
    begin
       QRL_Tag.Caption := '1';
       MoreData := TRUE;
    end
  else MoreData := FALSE;

end;

Er bricht komischerweise erst ab wenn er die Eventhandler normal durchlaufen hat, zeigt aber kein Blatt Papier an

EDIT : Der Code ist schon n Testcode,es werden keine Daten aus dem Array ausgelesen und so, er soll nur bis 30 hochzählen.

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]