В строке, состоящей из групп нулей и единиц, найти и вывести на экран группы с четным количеством символов

String zero_one = "1111010001001011111000010001011111100";
Memo1->Text = "";
String temp = zero_one[1];
for (int i=1; i<zero_one.Length(); i++)
  {
    if (zero_one[i+1] == zero_one[i])
      temp = temp + zero_one[i+1];
    else
    {
      if (temp.Length()%2==0)
        Memo1->Lines->Add(temp);
      temp = zero_one[i+1];
    }
  }
if (temp.Length()%2==0)  // четное кол-во одинаковых символов (0 или 1) в конце строки
  Memo1->Lines->Add(temp);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
 
String zero_one = "11110100010010111110000100010111111001111";
 
char delim_0 = '0';
char delim_1 = '1';
char temp = zero_one[zero_one.Length()];
 
while( zero_one.Length() )
 {
 int left_cut  = zero_one.LastDelimiter( ++temp%2?delim_0:delim_1 )+1;
 int right_cut = zero_one.Length();
 
 if( (right_cut > left_cut) &&
     (right_cut - left_cut) % 2 != 0 )
   Memo1->Lines->Add( zero_one.SubString( left_cut, right_cut ) );
 
 zero_one.Delete( left_cut, right_cut );
 }
}

    String s = "1111010001001011111000010001011111100";
    TReplaceFlags rf = TReplaceFlags() << rfReplaceAll;
    TStringDynArray arr(SplitString(
      StringReplace(StringReplace(s, "10", "1 0", rf), "01", "0 1", rf), " "));
 
    for(int i = 0; i < arr.Length; i++)
        if(arr[i].Length() % 2 == 0) Memo1->Lines->Add(arr[i]);

    String s = "1111010001001011111000010001011111100";
    TReplaceFlags rf = TReplaceFlags() << rfReplaceAll;
   TStringList *sL = new TStringList;
   sL->CommaText = StringReplace(StringReplace(s,"10","1 0",rf),"01","0 1",rf);
   for (int i=0;i<sL->Count;i++)
     if (sL->Strings[i].Length()%2==0) Memo1->Lines->Add(sL->Strings[i]);
   delete sL;