Программа разложения натурального числа на множители

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
bool is_prime(int n) {
    if (n <= 1)
        return false;
    if (n == 2)
        return true;
    if (n%2==0)
        return false;
    for (int j = 3; j * j <= n; j+=2)
         if (n % j == 0) return false;
 
    return true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
Memo1->Clear();
Memo1->Lines->Add("Âû ââåëè ÷èñëî: " +Edit1->Text);
if (is_prime(StrToInt(Edit1->Text)))
{
   Memo1->Lines->Add("Ýòî ÷èñëî ïðîñòîå");
}
else
{
  int i,d;
  for(i=2; i<StrToInt(Edit1->Text);i++)
  {
    if(StrToInt(Edit1->Text)%i==0)
     {
      d = StrToInt(Edit1->Text)/i;
      Memo1->Lines->Add(Edit1->Text+"/"+IntToStr(i));
      break;
     }
 
  }
   while(d!=1)
   {
    if(d%i==0)
    {
      Memo1->Lines->Add(IntToStr(d)+"/"+IntToStr(i));
      d = d /i;
    }
    else
    {
     break;
    }
    if(d==1)
    {
     Memo1->Lines->Add(IntToStr(d));
    }
 
   }
}
 
 
 
}
//---------------------------------------------------------------------------