подсчет букв (цифр) в тексте на СИ++ Builder

{
if ((Form1->Memo1->Text.Length()==0) | (Form1->Edit1->Text.Length()==0))
ShowMessage("пустое поле");
 
 
else
{
int k=0;
for(int i=1; i<=Form1->Memo1->Text.Length(); i++)
   if (Form1->Memo1->Text[i] == Form1->Edit1->Text[1])
k=k+1;
 
 
Form1->Label2->Visible= true;
Label2->Caption="Количество символов =" + IntToStr(k);
}

int l=0;
int m=0;
//---------------------------------------------------------------------------
// подсчет букв
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{   for ( int i=1 ; Form1->Memo1->Text.Length() ; i++)
  { if (char (Form1->Memo1->Text[i]) == ((Text[i]>128)&(Text[i]<=241))
  l=l+1;
}
}
 
//---------------------------------------------------------------------------
//подсчет цифр
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
{  for ( int i=1 ; Form1->Memo1-> Text.Length() ; i++)
  { if (char (Form1->Memo1->Text[i]) = ((Text[i]>48)&(Text[i]<=57))
  m=m+1;
}
}
//---------------------------------------------------------------------------
// вывод, в зависимости от выбора букв или цифр
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if { (RadioButton1Click->Action=Enable)
   Label3->Caption="количество цифр =" + IntToStr(m);
if { (RadioButton2Click->Action=Enable)
   Label3->Caption="количество букв =" + IntToStr(m);
else
   Label3->Caption="заданных символов нет";
}
}
//---------------------------------------------------------------------------

Memo1->Lines->Strings[i].Length();