var
 MyForm:TclForm;
 Edit1 : TclEdit;
 Button1 : TclButton;

void Clicked;
var
i : integer;
asal : Boolean;
{
  for (i = 2 to (StrToInt(Edit1.Text)-1)) //Asal sayılar 1e ve kendisine tam bölünebildiği için 2 den sayının bir eksiğine kadar döngü oluşturuyoruz.
  {
    if ((StrToInt(Edit1.Text) mod i) <> 0)  //Sayının modunu alarak bölümünden kalanı kontrol ederek tam bölünüp bölünmediğini kontrol ediyoruz.
    {
      asal = true;  //Tam bölünmediği sürece asal olduğunu varsayıyoruz.
    }
    else
    {
      asal = false; //Tam bölündüğü bir sayı çıkarsa asal olmadığını belirterek döngüden çıkıyoruz.
      Break;
    }
  }
  if asal //Sonucu ekrana yazdırmak için bir kontrol ekliyoruz.
  {
    ShowMessage(Edit1.Text + ' sayısı asal sayıdır.');
  }
  else
  {
    ShowMessage(Edit1.Text + ' sayısı asal sayı değildir.');
  }
}

{
  MyForm = TCLForm.Create(Self);
  
  Edit1 = MyForm.AddNewEdit(MyForm,'Edit1','Sayı Giriniz');
  Edit1.clTypeOfField = taFloat;

  Button1 = MyForm.AddNewButton(MyForm,'Button1','Asal mı?');
  Button1.Margins.Top = 100;
  
  MyForm.AddNewEvent(Button1,tbeOnClick,'Clicked');
  
  MyForm.Run;
}