Ошибка очистки динамической памяти

AnsiString s_edit3, s_rich3, s_rich4;
int dlina_r3, dlina_r4;
int kol_str;
float kol_sovp=0;
int r=0;
int freq[33];
for(int a=0; a<33; a++)
    freq[a]=0;
for(int a=0; a<15; a++)
    mass2[a]=0;
 
char *s_rich_c;  
char *s_rich_new2; 
 
kol_str=RichEdit2->Lines->Count;
 
for(int i=0;i<kol_str;i++)
   {
   s_rich3+=RichEdit2->Lines->Strings[i];
   }
dlina_r3=strlen(s_rich3.c_str());
s_rich_c=new char(dlina_r3);
s_rich_c=s_rich3.c_str();
 
for(int n=0; n<dlina_r3; n++)
   {
    if(s_rich_c[n]!=' ')
       {
        s_rich4+=s_rich_c[n];
       }
    }
 
dlina_r4=strlen(s_rich4.c_str());
s_rich_new2=new char(dlina_r4);
s_rich_new2=s_rich4.c_str();
//частота букв
for(int i=0; i<dlina_r4; i++)
    {
     for(int j=0; j<33; j++)
       {if (s_rich_new2[i]==mass[j])
         {freq[j]++;
          break;
         }
       }
 
    }
 
int p=dlina_r4-1;
for(int j=0; j<15; j++)
  {for(int k=0; k<dlina_r4; k++)
      {if((k+j+1)<=p)
          {if(s_rich_new2[k]==s_rich_new2[k+j+1])
           mass2[j]=mass2[j]+1;
           }
       else
           {if(s_rich_new2[k]==s_rich_new2[k+j-p])
            mass2[j]=mass2[j]+1;
           }
 
      }
StringGrid2->Cells[1][j+1]=mass2[j];
kol_sovp+=mass2[j];
}
Label1->Caption=kol_sovp;
float dola=0;
for(int j=1;j<16;j++)
  {
  dola=mass2[j-1]/(2*kol_sovp);
  StringGrid2->Cells[2][j]=FloatToStrF(dola, ffFixed, 4, 3);
  }
int sred_zn=kol_sovp/15;
int max=0, i=0, mass3[15];
for(int j=0; j<15; j++)
   {
    if(mass2[j]>max)
      {
      max=mass2[j];
      }
    if(mass2[j]>(sred_zn+2))
      {
       kol_sred_max++;
       mass3[i]=mass2[j];
       mass_ind[i]=j+1;
       i++;
      }
   }
for (int i=0; i<kol_sred_max; i++)
{
ComboBox1->Items->Add(mass3[i]);
}
 
delete [] s_rich_c;
[COLOR="Red"]delete [] s_rich_new2;[/COLOR]

String Temp = "Very LongLongLongLong ... Text";
char *Text = new char [Temp.Length()+1]; // не забывайте про нуль-терминатор
strcpy(Text,Temp.t_str()); // вместо t_str() может быть использовать c_str() - зависит от версии IDE и использования юникода
ShowMessage(Text);
delete []Text;
Text = NULL;

String *List = NULL;
List = new String[10];
// действия
delete []List;
List = NULL;