void __fastcall TForm1::Button1Click(TObject *Sender)
{
// яхЁхэхёхэшх ListBox эр QReport

   TQuickRep *QuickRep1=new TQuickRep(this);
   TQRBand *Title_Band=new TQRBand(QuickRep1);
   Title_Band->Parent=QuickRep1;
   for(int i= 0 ;i<=ListBox1->Items->Count- 1 ;i++){
      TQRLabel *newLabel=new TQRLabel(Title_Band);
      newLabel->Parent=Title_Band;
      newLabel->Left= 100 ;
      newLabel->Top= 20 +i* 20 ;
      newLabel->Caption=ListBox1->Items->Strings[i];
   };
   
   QuickRep1->Preview();
   delete QuickRep1;
}
//---------------------------------------------------------------------------