Счетчик символы в memo

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TStringList * list = new TStringList();
 list->DelimitedText = Trim(Memo1->Text);
 list->Delimiter = ' ';
 int d = 0;
 
 for(int i = 0; i < list->Count; i++)
{
 for(int a = 1; a < list->Strings[i].Length()+1; a++)
   {
       if(list->Strings[i][a] ==';')
        {
         d++;
        }
   }
 }
 ShowMessage("Êîëè÷åñòâî: " +IntToStr(d));
 delete list;
 list = NULL;
}
//---------------------------------------------------------------------------

// ...
    TStringList *L = new TStringList;
    L->Delimiter = ';';
    L->StrictDelimiter = true;
    L->DelimitedText = Memo1->Text;
 
    ShowMessage(IntToStr(L->Count - 1));
    delete L;

    int count = 0;
    for(int i = 1; i <= Memo1->Text.Length(); i++)
        if(Memo1->Text[i] == ';')
            count++;
 
Form1->Caption = count;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *sl = new TStringList();
sl->Delimiter = ';';
 
sl->DelimitedText = StringReplace(
                                  StringReplace(
                                                Memo1->Text, " ", "", TReplaceFlags() << rfReplaceAll
                                                ),
                                  "\r\n", "", TReplaceFlags() << rfReplaceAll
                                  );
 
ShowMessage( String().sprintf( L"В тексте %d символов %c", sl->Count - 1, sl->Delimiter ) );
 
delete sl;
}

#include <StrUtils.hpp>
// ...
ShowMessage(IntToStr(SplitString(Memo2->Text, ";").Length - 1));