Массив: выбрать из массива цифры

int a,b,c;
String s;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
for(a=0;a<=9;a++)
{
s=StringGrid1->Cells[a][0];
if(isdigit(s.c_str())!=0)ShowMessage("Текст");//StringGrid2->Cells[a][0]=s[a];
}
}

String s1,s2;
int a,b;
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
s1=Edit1->Text; прысваюю s1 текст
b=s1.Length(); b= кол-во смволов
for(a=1;a<=s1.Length();a++) цикл
s2[a]='1'; заполняю пустую память ( думал мб поможет - не помогло)
for(a=1;a<=s1.Length();a++) цикл
{
s2[b]=s1[a]; s2  -задаем последний символ s2 из первого s1
b--; уменшаем s2
}
}

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
  int a,b,c;
  AnsiString s;
  s = Edit1->Text; // присваиваю s текст
  b = s.Length(); // b= кол-во смволов
  for(a=1;a<=b;a++) {
    if(isdigit(s[a].c_str()) {
      ShowMessage("Цифра");
      // или заносите в массив инт, или еще что
    }
  }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
String S1,S2;
S1= Edit1->Text;
int size = S1.Length();
for(int i=1;i<=size;i++) if(S1[i]>='0' && S1[i]<='9') S2+=S1[i];
Edit2->Text= S2;
}
//---------------------------------------------------------------------------