{
ListBox1->Items->Clear();
int kontrol=0;
int sayi=StrToInt(InputBox("Sayi Gir","Sayıya Kadar Asalları Bul",""));
ProgressBar1->Min=0;
ProgressBar1->Max=sayi;
for(int i=2;i<=sayi;i++)
{
 for(int j=2;j<sqrt(i);j++)
 {
 if(i%j==0)
 kontrol=1;
 }
 if(kontrol==0)
 ListBox1->Items->Add(i);
 kontrol=0;
 ProgressBar1->Position=i;
}