procedure TPosPubFactureRep.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); var n, total : integer; str : String; begin total := ; str := ADOArticle.FieldByName('my_data').AsString; Repeat n := Pos(#, str); then begin Inc(total