raised exception class eaccessviolation with message.

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if (OpenDialog1->Execute())
 Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
 else Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ AnsiString w,w1;
 
if (SaveDialog1->Execute())
w=  Memo2->Lines->GetText();
w1= Memo3->Lines->GetText();
Memo4->Lines->Clear();
Memo4->Lines->Add(w+" "+w1);
 
   Memo4->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  Memo1->Clear();
  Memo3->Clear();
  Memo2->Clear();
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{AnsiString str, str1;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  
   AnsiString slovo, perevod, str;   
    slovo="", perevod="";
   int flag; int i;
   for ( i=1; i<str.Length(); i++);{
   if(str[i]==' ' )      //если есть пробел то начинает искать слово из функции poisk_slova
   {
   if (flag==0) flag=i;
else
{
int dl=i-flag-1;
slovo=str.SubString(flag+1,dl);
poisk_slova(slovo);
perevod=perevod+" "+slovo;
flag=i;
}
}
  if (str[i]=='.'||str[i]==','||str[i]==':'||str[i]==';'){  //если пунктуация тоже ищет слово нужное
  if (flag>0){
  int dl=i-flag-1;
  slovo=str.SubString(flag+1,dl);
  poisk_slova(slovo);
  perevod=perevod+" "+slovo;
  flag=0;
           }
           }
}
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::poisk_slova (AnsiString&slov) {
 
 
 
  AnsiString strok="";           //ищет нужное слово
    bool pois=false;
    for(int i=0; i<=Memo1->Lines->Count;i++){
    strok=Memo1->Lines->Strings[i];
    int pos=strok.AnsiPos(slov);
    if(pos>0){
    pois=true;
    Memo2->Lines->Clear();
    pos=pos+slov.Length()+1;
    int dl=strok.Length()-pos+1;
    slov=strok.SubString(pos,dl);
 
    }
 
    }
 
    if(pois==false){
    Memo2->Lines->Strings[0]=Memo2->Lines->Strings[0]+"Slovo ne naideno!";
    }
    }
 
 
//---------------------------------------------------------------------------