Problem bei der Ausgabe mit Quickreport

[clock50]

Es klärt sich alles wenn man mal darüber nachdenkt dann stellt man fest das man auch blind sein kann.

Delphi-Quellcode:

procedure Tdrucken.RechnungRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
 if length(unit6.positionen)-1 >= posz Then
 begin
 RPosAnz.Caption := unit6.positionen[posz].anzahl;
 RPosMwSt.Caption := unit6.positionen[posz].mwst;
 RPosText.Lines := unit6.positionen[posz].text;
 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;
 end;
 inc(posz);
 MoreData := posz <= length(unit6.positionen);
end;