Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки

{
    int nst;
    nst=ListBox1->ItemIndex;        
    String st=ListBox1->Items->Strings[nst],s1=" ";
    int i0=0,i=st.Pos(s1);
    while(i)
    {
        if(StrToInt(st.SubString(i0+1,i-1))%2==0)
        {
            Label2->Visible=true;
            Label3->Caption=st.SubString(i0+1,255)+" ";
        }
    i0=i0+i-1+s1.Length();
    i=st.SubString(i0+1,255).Pos(s1);
    }
}

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
    int nst=ListBox1->ItemIndex;
    String st=ListBox1->Items->Strings[nst]+" ",s1=" ",new_st="",s2="";
    int i0=0,i=st.Pos(s1);
    while(i)
    {
        if(st.SubString(i0+1,i-1)%2==0)
        {
            Label2->Visible=true;
            s2=st.SubString(i0+1,i-1)+" ";
            new_st=new_st+s2;
        }
        i0=i0+i-1+s1.Length();
        i=st.SubString(i0+1,255).Pos(s1);
    }
    Label3->Caption=new_st;
}

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
  std::auto_ptr<TStringList> L(new TStringList);
  L->CommaText = ListBox1->Items->Strings[ListBox1->ItemIndex];
  String s = "";
  for(int i = 0; i < L->Count; i++)
   if(L->Strings[i].ToInt() % 2 == 0)
    s += L->Strings[i] + " ";
   Label1->Caption = s;
}