Поиск найболее встречаемого слова

 #include <map.h>
 map <AnsiString, int> wordCount;
 TStringList *str = new TStringList();
 str->LoadFromFile("C:\\txt.txt"); // грузим файл
 AnsiString text = str->Text;
 delete str; str = NULL;
 while(text.Length() > 0)
 {
  AnsiString word = "";
  int pos = text.Pos(" ");
  if(pos)
   word = text.SubString(1,text.Pos(" ")-1).Trim().LowerCase();
  else
   word = text.Trim().LowerCase();
  text.Delete(1,pos ? pos : text.Length());
  if(word.Pos("."))
   word = word.SubString(1,word.Pos(".")-1);
  if(word.Pos(","))
   word = word.SubString(1,word.Pos(",")-1);
  if(word.Pos("("))
   word = word.SubString(1,word.Pos("(")-1);
  if(word.Pos(")"))
   word = word.SubString(1,word.Pos(")")-1);
  if(word.Pos("\r"))
   word = word.SubString(1,word.Pos("\r")-1);
  if(word.Pos("\n"))
   word = word.SubString(1,word.Pos("\n")-1);
  if(!word.IsEmpty())
   ++wordCount[word];
 }
 
 AnsiString word = "";
 int countMax = 0;
 for(map <AnsiString, int>::iterator iter = wordCount.begin();iter != wordCount.end();++iter)
 {
  if((*iter).second > countMax)
  {
   word = (*iter).first;
   countMax = (*iter).second;
  }
 }
ShowMessage(word);