error message

[maqlukas]

Hi!
Does anybody know how to avoid the following error messages:

Assertion failure"(!"IInspect32: inspBlockInit failed")" in ..\win32src
\eval32.cpp at line 2875. Continue execution?
if "YES" then same message but at line 2065 and then at line 2100

Then another error nessage:
Exeption ElistError in module rtl100.bpl at 0003155A List index out of
bounds(1)

This happens each time the number of records 'rec' reaches 348.
How to workaround the problem, should I delete dynamic arrays each
time the program returns from MySort function?

Thanks in advance!
Maq

My program:
--------------------------------------------------------------
// Definitions
typedef std::vector<std::vector<std::vector<int> > > V_array;
V_array Vag, Vmin;
// ........... code
// ........... code

// My function:
MySort(Vmin,Vag, nrec, 2);

// ........... code
// ........... code

// Definition of my function

void TForm1::MySort(V_array &Vut, V_array &Vin, int rec, int flag)
{
V_array Vbhit;
int ml=7;
int al =4;
int mg=2;

// ........... code
// ........... code

if (flag == 2)
{
for(int m=0 ; m< mg; m++)
{
for(int a=0 ; a< rec ; a++)
{
for(int b=0 ; b< ml ; b++)
{
Vbhit[m][0][ Vin[a][m][b]-1 ] = Vbhit[m][0][ Vin[a][m]
[b]-1 ] +1; // The program stops here!
}
for(int b=ml ; b< ml + al ; b++)
{
Vbhit[m][1][ Vin[a][m][b]-1 ] = Vbhit[m][1][ Vin[a][m][b]-1 ] +1;
}
}
}
}
// ........... code
// ........... code
}
-----------------------------------