{
  int i;
   i=1;
   ListBox1->Items->Clear();
   ListBox2->Items->Clear();
   ListBox3->Items->Clear();
   ListBox4->Items->Clear();
   ListBox5->Items->Clear();
   ListBox6->Items->Clear();
   ListBox7->Items->Clear();
   ListBox8->Items->Clear();
     for(i=1; i<=6 ;i++)
  {
     ListBox1->Items->Add(IntToStr(random(1-49)));
     ListBox2->Items->Add(IntToStr(random(1-49)));
     ListBox3->Items->Add(IntToStr(random(1-49)));
     ListBox4->Items->Add(IntToStr(random(1-49)));
     ListBox5->Items->Add(IntToStr(random(1-49)));
     ListBox6->Items->Add(IntToStr(random(1-49)));
     ListBox7->Items->Add(IntToStr(random(1-49)));
     ListBox8->Items->Add(IntToStr(random(1-49)));
  }
 }
//Forma 8 Listbox,1 buton alın Butonun click Olayına Yukarıdaki KOdu Yazın