Вывести все 4х-значные числа, в записи которых сумма первых 2ух цифр = сумме последних 2ух цифр

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int j,i,x[3];
AnsiString s;
for(i=1000;i<9999;i++){
 
s=FloatToStr(i);
for(j=0;j<4;j++) x[j]=StrToFloat(s[j]);
 
if ((x[0]+x[1])==(x[2]+x[3])) (Memo1->Lines->Add(s));
}
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int j, i, x[4];
    char s[5] = {0};
    for ( i = 1000; i < 1999; i++ )
    {
 
        strcpy(s, AnsiString(i).c_str() );
        for ( j = 0; j < 4; j++ )
                {
                       x[j] = s[j] - 30;
                }
 
        if ( x[0] + x[1] == x[2] + x[3] )
                {
                        Memo1->Lines->Add(s);
                }
    }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int j,i,x[4];
        AnsiString s;
        for(i=1000; i<9999; i++)
        {
                s = i;
                for ( j=0; j<4; j++)
                {
                        x[j]=StrToFloat(s[j+1]);
                }
 
                if ( x[0]+x[1] == x[2]+x[3] )
                {
                        Memo1->Lines->Add(s);
                }
        }
}