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

void __fastcall TForm1::Button1Click(TObject *Sender)
 
{
    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;
}

#include <vcl.h>
#pragma hdrstop
#include <string>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
String func (int n)
{
  if (n % 2)
    return "n ?????? ???? ??????";
 
  String result = "", str;
  int tmp, num = n;
 
  randomize();
  char dgt = random(2) ? '1' : '0';
 
  while (num)
  {
    tmp = random(num / 2) + 1;
    str = StringOfChar(dgt, 2 * tmp);
    num -= 2 * tmp;
    result += str;
 
    dgt = (dgt == '1') ? '0' : '1';
 
    for (int i = 0; i < 2; i++)
    {
      tmp = 2 * random(3) + 1;
      str = StringOfChar(dgt, tmp);
      result += str;
 
      dgt = (dgt == '1') ? '0' : '1';
    }
  }
 
  return result;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
      Edit1->Text = func(20);
}

#include <System.hpp>

#include <string>