Borland C++ Builder

[m@rusl@12]

Помогите пожалуйста. надо срочно. у меня зачет((
ЗАдание:
Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов.

Вот я сделала но она рабоатет как то не правильно( и я не знаю в чем причина посмотрите пожалуйста:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s,CurStr;
int i;
Char CurSim;
s=Edit1->Text+" ";
CurStr=" ";
CurSim=s[1];
if (s.Length()==1)
exit;
CurStr=" ";
CurSim=s[1];
for (i=1; i<=s.Length(); i++)
{
if ((s[i]=='1') || (s[i]=='0'))
{
if (s[i]==CurSim)
CurStr=CurStr+s[i];
else
{
if ((CurStr.Length()%2==0)&&(CurStr.Length()!=0))
Memo1->Lines->Add(CurStr);
CurStr=s[i];
CurSim=s[i];
}
}
else
{
if ((i>1) && (s[i-1]='0') || (s[i-1]='1'))
{
if ((CurStr.Length()%2==0) && (CurStr!=0))
Memo1->Lines->Add(CurStr);
CurStr="";
CurSim=' ';
}
}
}
}

[m@rusl@12]

Если у кого было подобное задание или просто есть сделаннная на С++ Builder ъта задачка, если не жалко, киньте на почту:
mariya2098@yandex.ru