Ошибка! exeption class raised EAccess...

[Davlet M]

Выдает ошибку Project.exe raised exception class EAccess violation with message.........

while (F1 == FALSE)
{
if ((fabs(pik-pik0)<0.1)||(fabs(pik-pik1)<0.1))
{
a1_d_vz += 0.5;
}
else F1 = TRUE;

create_d12();
achh();
read_d14();
graph_buil();

while (fabs(freq[flag1]-f_rab)>0.25)
{
if (freq[flag1]>f_rab)
{
delta+=delta/6;
a1_d_r+=delta;
}
else if (freq[flag1]<f_rab)
{
delta-=delta/5;
a1_d_r-=delta;
}

create_d12();
achh();
read_d14();
graph_buil();
}
pik = pol[flag1];
pik1 = pol[flag1-1];
pik0 = pol[flag1+1];
}

}
тут, как видно очень ресурсоемкая процедура идет... возможно ошибка происходит из-за переполнения памяти или еще что-нибудь.... как это можно устранить???