Ошибки памяти при работе с массивами

void __fastcall TForm2::Button2Click(TObject *Sender)
{
AnsiString rezul,textn,res;   int l,t,y;
AnsiString posh=Edit1->Text;
 
for(int i=0;i<Memo1->Lines->Count;i++)
{
 for (int j=0;j<Memo1->Lines->Strings[i].Length();j++)
 {
  textn=Memo1->Lines->Strings[i];
 
    for (int po=0;po<Edit1->Text.Length();po++)
    {
     if (textn[j+po]==posh[po]){ res[po]+=textn[j+po]; }  else {goto nonf;}
     if (res==posh) {l=i;t=j-Edit1->Text.Length();}
    }
  nonf:
 }
}
}

for (int j=1;j<=Memo1->Lines->Strings[i].Length();j++)
{
///........
}

void __fastcall TForm2::Button2Click(TObject *Sender)
{
AnsiString rezul,textn,res;   int l,t,y;
AnsiString posh=Edit1->Text;
 
for(int i=0;i<Memo1->Lines->Count;i++)
{
 for (int j=1;j<=Memo1->Lines->Strings[i].Length();j++)
 {
  textn=Memo1->Lines->Strings[i];
 
 for (int po=1;po<=Edit1->Text.Length();po++)
 {
  if (textn[j+po-1]==posh[po]){ res[po]+=textn[j+po-1]; }  else {break;}
 if (res==posh) {l=i;t=j-Edit1->Text.Length();}
 }
 
 }
}
}

if (textn[j+po-1]==posh[po]){ res[po]+=textn[j+po-1]; }

    String s, sub( edit1->Text );
    for ( size_t i( 0 ), k( 1 ), k_subs, len, sub_len( sub.Length( ) ),
        count( memo1->Lines->Count ); i < count; ++i, k = 1 )
    {
        s = memo1->Lines->Strings[i];
        len = s.Length( );
        while ( k_subs = s.SubString( k, len ).Pos( sub ) )
        {
            memo1->Lines->Add(
                "found at: line " + UIntToStr( i ) + ", pos " + UIntToStr( k += k_subs - 1 ) );
            ++k;
        }
    }