ТЕКСТОВЫЕ ФАЙЛЫ, СИМВОЛЫ, СТРОКИ

int FindWord(char*str,char*word)
{ unsigned ls=strlen(str);
  for(unsigned i=0;i<ls;i++)
  { bool find=true;
    char*w=word;
    if(str[i]==*w)
    { while(*w) if(*w++!=str[i++])
      { find=false; break;}
      if(find) return i-strlen(word);} 
  }
  return -1;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{ 
    Memo1->Lines->LoadFromFile("text.dat");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    int i, j, k, cc, n, num=0 ;
    for ( i=0;i<Memo1->Lines->Count;i++)
     for ( j=1;j<Memo1->Lines->Strings[i].Length();j++)
      if ((n=Memo1->Lines->Strings[i].Pos(Edit1->Text))!=0)
      {
         cc=0;
         for ( k=1;k<n;k++)
           if(IsDelimiter(" ",Memo1->Lines->Strings[i],k))
             cc++ ;
         Edit2->Text = IntToStr(i+1);
         Edit3->Text = IntToStr(cc+1);
         num=i;
         i=Memo1->Lines->Count; break;
      }
    Memo1->HideSelection = false;
    if ((n=Memo1->Text.AnsiPos(Edit1->Text))!=0) {
      Memo1->SelStart = n-num;
      Memo1->SelLength = Edit1->Text.Length();  }
}