Как подсчитать вхождение каждого из символов в строку ListBox

ListBox1->Items->Strings[0] = "abcdadcababcdadcabbb";

Strings[0]

UnicodeString sTestString = "ababababab";

bool __fastcall operator ==(const UnicodeString& rhs) const;

float mas[4] = {0};

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
float aCount = 0, bCount = 0, cCount = 0, dCount = 0; //количество символов
int len, cnt; 
float Kol = 0; //количество символов в строке
float aKol = 0, bKol = 0, cKol = 0, dKol = 0; //Вероятности
 
  AnsiString str;
  cnt = ListBox1->Items->Count;
  for (int i = 0; i < cnt; i++)
  {
  len = ListBox1->Items->Strings[i].Length();
  {
    for (int j = 1; j <= len; j++)
    {
      Kol++;
      str = ListBox1->Items->Strings[i];
      if (str.SubString(j,1) == 'a')
      {
        aCount++;
      }
      if (str.SubString(j,1) == 'b')
      {
        bCount++;
      }
      if (str.SubString(j,1) == 'c')
      {
        cCount++;
      }
      if (str.SubString(j,1) == 'd')
      {
        dCount++;
      }
    }
    }
}
aKol = aCount / Kol;  //Вероятность появления символа "a"
bKol = bCount / Kol;  //Вероятность появления символа "b"
cKol = cCount / Kol;  //Вероятность появления символа "c"
dKol = dCount / Kol;  //Вероятность появления символа "d"

// определяем функцию, которая считает вероятность появления символа в строке
const double GetCharExpactance(const AnsiString &sText, const char &chVal) {
    unsigned iCount;
    for (int i = 1; i <= sText.Length(); i++) {
        if (sText[i] == chVal) {
            iCount++;
        }
    }
    double dCharExpectance = 0.0;
    if (sText.Length() != 0.0) {
        dCharExpectance = (double)iCount / (double)sText.Length();
    }
    return dCharExpectance;
}
#include <map>
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender) {
    // определяем контейнер, который будет хранить вероятности
    typedef std::map<char, double>TMapChDbl;
    TMapChDbl MapChDbl;
 
    // перечень символов, наличие которых будем проверять
    char chArrayOfSymbols[] = {'a', 'b', 'c', 'd'};
 
    // заполнение контейнера
    for (int i = 0; i < ARRAYSIZE(chArrayOfSymbols); i++) {
        MapChDbl[chArrayOfSymbols[i]] = GetCharExpactance(ListBox1->Items->Text,
            chArrayOfSymbols[i]);
    }
 
    // доступ к любому элементу
    ShowMessage(MapChDbl['c']);
 
    // опять же, можно перебирать элементы контейнера
    for (TMapChDbl::iterator it = MapChDbl.begin(); it != MapChDbl.end(); ++it)
    {
        ShowMessage("Вероятность появления символа " + AnsiString(it->first) +
            " составляет " + AnsiString(it->second));
    }
 
}
// ---------------------------------------------------------------------------