Посчитать количество слов

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Ulab1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString a="";
AnsiString bukvy="абвгдеёжзийклмнопрстуфхцчшщъыьэюя";
int counter=0, counter1=0, index;
for (int i=1; i<Edit1->Text.Length()+1;i++)
     if(Edit1->Text[i]==' ' || i==Edit1->Text.Length())
     { counter1=0;
     for(int j=1;j<a.Length()+1;j++)
     {index=bukvy.Pos(a[j]);
     if(index>0)counter1++;
     }
     if(div(counter1,1).rem!=0)
     {counter++;
     a=""; }
     else
     a+=Edit1->Text[i];
     }
Label2->Caption="В предложении слов с четным количеством букв = " +IntToStr(counter);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *list  = new TStringList();
list->Clear();
Edit1->Text = "Мы толкали паровоз без трубы и без колёс";
int d = 0, c = 0;
 
list->DelimitedText = Trim(Edit1->Text);
list->Delimiter = ' ';
for(int i = 0; i < list->Count; i++)
 {
  d = list->Strings[i].Length();
    if(d%2==0)
        {
          c++;
        }
        d=0;
  }
 
Label1->Caption="В строке "+IntToStr(c)+" слов с четным количеством  букв";
delete list;
list = NULL;
}