FastReports zeigt Einträge doppelt

[TurboMagic]

Ich vermute, dass das wenn ich es in das Beispielprogramm versuche einzubauen plötzlich irgendwie geht.
Der schmale Bon geht ja korrekterweise. Hier etwas Code:

Delphi-Quellcode:

  dm_ZBon.frxUserDataSetEmployeePurchase.RangeEnd      := reCount;
  dm_ZBon.frxUserDataSetEmployeePurchase.RangeEndCount := FData.EmployeePurchase.Count;
  dm_ZBon.frxUserDataSetEmployeePurchase.OnNext        := OnNextEmployeePurchaseRecord;
  dm_ZBon.frxUserDataSetEmployeePurchase.First;


und noch das:

procedure TZBonPrinting.OnNextEmployeePurchaseRecord(Sender: TObject);
begin
  if FEmployeePurchIndex + 1 < FData.EmployeePurchase.Count then
    inc(FEmployeePurchIndex);
end;