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

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; 
 };} };};}