/* Calculate all all kinds of charcters in the memo */
    for (int i = 1; i <= allText.Length(); ++i)
    {
        /* Check for digit */
        if (TCharacter::IsDigit(allText[i])) LDigits++;
 
        /* Check for number */
        if (TCharacter::IsNumber(allText[i])) LNumber++;
 
        /* Check for letter */
        if (TCharacter::IsLetter(allText[i])) LLetters++;
 
        /* Check for lower-cased letter */
        if (TCharacter::IsLower(allText[i])) LLower++;
 
        /* Check for upper-cased letter */
        if (TCharacter::IsUpper(allText[i])) LUpper++;
 
        /* Check for punctuation */
        if (TCharacter::IsPunctuation(allText[i])) LPuct++;
 
        /* Check for separators */
        if (TCharacter::IsSeparator(allText[i])) LSep++;
 
        /* Check for symbols */
        if (TCharacter::IsSymbol(allText[i])) LSymbols++;
 
        /* Check for symbols */
        if (TCharacter::IsWhiteSpace(allText[i])) LWhites++;
    }