У меня ошибка. Кто поможет

int  __fastcall TZash::LoadWordListFile(const String& sFileName)
{
    int nNumOfWords = WORDLIST_DEFAULT_SIZE;
  TStringList* pWordList = NULL;
 
  if (!sFileName.IsEmpty()) {
    FILE* pFile = fopen(sFileName.c_str(), "ru");
 
    if (pFile == NULL)
      return -1;
 
    pWordList = new TStringList();
 
  //игнорировать дубликаты
  pWordList->Sorted = true;
    pWordList->Duplicates = dupIgnore;
 
    Refresh();
    Screen->Cursor = crHourGlass;
 
#if 0
    const int BUFSIZE = 64;
    char szBuf[BUFSIZE];
 
    while (fgets(szBuf, BUFSIZE, pFile) != NULL &&
           pWordList->Count < WORDLIST_MAX_SIZE)
    {
      int nWordLen = strlen(szBuf);
      if (szBuf[nWordLen-1] == '\n')
        szBuf[--nWordLen] = '\0';
      if (nWordLen > 0 && nWordLen <= m_nMaxWordLen)
        pWordList->Add(szBuf);
    }
#else
    const int BUFSIZE = 16384;
    char szBuf[BUFSIZE];
    char szWord[WORDLIST_MAX_WORDLEN + 1];
    int nCharsRead;
    int nWordLen = 0;
    bool blBreak = false;
 
    while (!blBreak)
    {
      nCharsRead = fread(szBuf, 1, BUFSIZE, pFile);
      if (nCharsRead == 0) {
        blBreak = true;
        szBuf[nCharsRead++] = '\n';
      }
      for (int nI = 0; nI < nCharsRead; nI++) {
        char c = szBuf[nI];
        switch (c) {
        case '\n':
        case '\t':
        case ' ':
          if (nWordLen > 0 && nWordLen <= m_nMaxWordLen) {
            szWord[nWordLen] = '\0';
            pWordList->Add(szWord);
            if (pWordList->Count == WORDLIST_MAX_SIZE) {
              blBreak = true;
              nI = nCharsRead;
            }
          }
          nWordLen = 0;
          break;
        default:
          if (nWordLen < m_nMaxWordLen)
            szWord[nWordLen] = c;
          nWordLen++;
          continue;
        }
      }
    }
#endif
 
    fclose(pFile);
 
    Screen->Cursor = crDefault;
 
    nNumOfWords = pWordList->Count;
    if (nNumOfWords < 2) {
      delete pWordList;
      return 0;
    }
 
    //давайте обрабатывать ресурсы памяти экономически
    pWordList->Capacity = pWordList->Count;
  }
 
  if (m_pWordList != NULL)
    delete m_pWordList;
  m_pWordList = pWordList;
  m_dWordListEntropy = Log2(nNumOfWords);
 
  /*WordListInfoLbl->Caption = TRLFormat("%d words / %.1f bits per word",
    ARRAYOFCONST((nNumOfWords, roundEntropy(m_dWordListEntropy))));   */
 
  return nNumOfWords;
}

typedef SecureMem<char> SecureString;
typedef SecureMem<wchar_t> SecureWString;

// 81 строку - вот так:
    SecureWString sChars, sWords;
 
// строки 143-144 - вот так:
        if (blFirstCharNotLC && IsLower(pszPass[0]))
          pszPass[0] = ToUpper(pszPass[0]);