{
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