Определить, сколько среди данной последовательности символов точек, пробелов и букв Д

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int N;
int B;
AnsiString S;
{
S=Edit1->Text.c_str ();
N=Edit1->Text.Length();
Label2->Caption="В тексте "+IntToStr(N);
if (N>0)
{B=N % 10;
if (N==11 || N==12 ||N==13 ||N==14)
{Label2->Caption=Label2->Caption+" символов";}
else
{switch (B)
 {case 1 : Label2->Caption=Label2->Caption+" символ";break;
  case 2:
  case 3:
  case 4: Label2->Caption=Label2->Caption+" символа";break;
  default : Label2->Caption=Label2->Caption+" символов";break; 
 };} };};}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
int t=0;  //счетсчик точек
int p=0;  //счетсчик пробелов
int d=0;  //счетсчик заглавных букв Д
if (Edit1->Text.Length()>0) {      //проверяем не пустое ли поле Edit
for (int i = 1; i <=Edit1->Text.Length(); i++) {   //если не пустое начинаем искать
if (Edit1->Text[i]=='.') {  //ищем точки
t++;
}
if (Edit1->Text[i]==' ') {  //ищем проблеы
p++;
}
if (Edit1->Text[i]=='Д') {   //ищем буквы Д
d++;
}
}
}
ShowMessage("Точек-"+IntToStr(t)+";"+"Пробелов-"+IntToStr(p)+";"+"Буков Д-"+IntToStr(d)+";");     //Выводим результат
}