Найти все простые числа из интервала (1000, 9999), у которых сумма первой и второй цифры равна сумме третьей и четвертой цифры.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Memo1->Clear();
}
//---------------------------------------------------------------------------
int TForm1::isprime(int n)
{
    if(n==1) // 1 - не простое число
        return false;
    // перебираем возможные делители от 2 до sqrt(n)
    for(int d=2; d*d<=n; d++){
        // если разделилось нацело, то составное
        if(n%d==0)
            return false;
        }
    // если нет нетривиальных делителей, то простое
    return true;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String Prostoe,Prostoe2;
    for(int i=1000; i<=9999;i++)
    {
        if(isprime(i)==true)
        {
            int symma1=0,symma2=0;
            Prostoe=IntToStr(i);
            for(int j=1;j<=4;j++)
            {
                Prostoe2=Prostoe[j];
                if(j<=2)symma1+=StrToInt(Prostoe2);
                if(j>=3)symma2+=StrToInt(Prostoe2);
            }
            if(symma1==symma2)Memo1->Lines->Add(Prostoe);
        }
    }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TMemo *Memo1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    int isprime(int n);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
bool isSimple(int in)
{
  for(int i = 2; i <= in / 2; i++)
    if(in % i == 0)
      return false;
  return true;
}
//---------------------------------------------------------------------------
bool mySelect(int in)
{
  int x[4];
  for(int i = 0, j = 1000; i < 4; i++, j /= 10)
    {
      x[i] = in / j;
      in -= x[i] * j;
    }
  if(x[0] + x[1] == x[2] + x[3])
    return true;
  return false;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for(int i = 1000; i < 10000; i++)
    if(isSimple(i))
      if(mySelect(i))
        Memo1->Lines->Add(IntToStr(i));;
}
//---------------------------------------------------------------------------

for(int i=1000; i<=9999;i++)