Определить количество слов в строке и вывести на экран все слова, количество букв у которых нечетное.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 String Stroka=Edit1->Text;  //твоя строка
 while (Stroka.Pos(":")!=0) {
    Stroka=Stroka.SubString(1,Stroka.Pos(":")-1)+" "+Stroka.SubString(Stroka.Pos(":")+1,Stroka.Length()-Stroka.Pos(":"));
 }
 int Count=0;
 while (Stroka.Pos(" ")!=0) {
    Count++;
    int a=Stroka.Pos(" ");
    String tmpStr="";
    tmpStr=Stroka.SubString(1,a);
    Stroka=Stroka.SubString(a+1,Stroka.Length()-a);
    if ((tmpStr.Length() % 2) ==0) ListBox1->Items->Add(tmpStr);  //нечетные
 }
 Label1->Caption=IntToStr(Count+1); //количество слов в строке
}

// Подсчёт нечётных слов-----------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TStringList *list = new TStringList(); // основной текст храним в list
   TStringList *TokenPoint = new TStringList(); // текст разбитый по двоеточию
   TStringList *TokenSpace = new TStringList(); // текст разбитый по пробелам
 
   // Задаём символ для разбивки - ":" - двоеточие
   TSysCharSet chPoint;
   chPoint<<':';
 
   // задаём символ для разбивки - " " - пробел
   TSysCharSet chSpace;
   chSpace<<' ';
 
   list->Text = Memo1->Text; // присваиваем текст из Memo списку - list
 
   // разбиваем текст по двоеточию
   ExtractStrings(chPoint, chPoint, list->Text.c_str(), TokenPoint);
   // разбиваем текст по пробелам
   ExtractStrings(chSpace, chSpace, TokenPoint->Text.c_str(), TokenSpace);
 
   // Подсчитываем количество слов
   // и выводим на экран слова с нечётным количеством символов
   for(int i = 0; i < TokenSpace->Count; i++){
     if((TokenSpace->Strings[i].Length() % 2) != 0)
       Memo2->Lines->Add(TokenSpace->Strings[i]);
    }
 
   // Сколько всего слов
   Label1->Caption = String("Всего нечётных слов = ") + Memo2->Lines->Count;
 
   // Освобождаем память
   delete list;
   delete TokenSpace;
   delete TokenPoint;
}
//---------------------------------------------------------------------------