Problem bei der Ausgabe mit Quickreport

[clock50]

So hier der Code:

Delphi-Quellcode:

procedure Tdrucken.RechnungRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
 RPosAnz.Caption := unit6.positionen[posz].anzahl;
 RPosMwSt.Caption := unit6.positionen[posz].mwst;
 if unit1.inklmwst then
  begin
  RPosEP.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].epreis)*((strtofloat(unit6.positionen[posz].mwst)+100)/100),ffCurrency,18,2);
  RPosSum.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].anzahl)*(strtofloat(unit6.positionen[posz].epreis)*((strtofloat(unit6.positionen[posz].mwst)+100)/100)),ffCurrency,18,2);
  end else
  begin
  RPosEP.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].epreis),ffCurrency,18,2);
  RPosSum.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].anzahl)*(strtofloat(unit6.positionen[posz].epreis)),ffCurrency,18,2);
  end;
 inc(posz);
 MoreData := posz <= length(unit6.positionen)-1;
 showmessage('pos');
end;

noch dazu es wird nie ausgeführt wenn DataSet nicht gesetzt ist!