ansistring

char *ptr,*next,rc;
AnsiString str,tmp,phrase;
TStringList *match_file=new TStringList();
match_file->LoadFromFile("file.txt");
str=Edit1->Text;
phrase="";
for (int i=0;i<match_file->Count;i++)
{
  tmp=match_file->Strings;
  ptr=tmp.c_str();
  while (ptr)
  {
     next=strchr(ptr,',');
     if (!next) next=strchr(ptr,'#');
     if (next)
     {
        rc=*next;
        *(next++)=0;
        if (str.Pos(ptr))
        {
           if (rc=="#") phrase=next;
           else phrase=strchr(ptr,'#')+1;
           next=NULL;
        }
     }
     ptr=next;
  }
  if (phrase!="") break;
}

// В этом месте переменная phrase будет либо содержать строку "any phrase" либо будет пустой.