Ya he acotado el error y aunque este trozo de codigo se ejecuta y hace su tarea, al finalizar la funcion en la que se encuentra dicho trozo de codigo y salirse de la que llama a esta, concretamente seria:
void __fastcall TForm2::New3Click(TObject *Sender)
{
paint=false;
Simula();
paint=true;
}
al salirse de esta funcion da el error de EAccessViolation en VCL50.bpl y tal y tal..
el trozo de codigo ke hace ke salga este error es el siguiente, dentro de la funcion 'Simula()' que habeis visto anteriormente. A ver si alguien me dice en que fallo en este trozo de codigo.
else if(c1.ad.dato && c1.ad.dir!=1){
char* cad;
for(int j=0; j<c1.ad.numBytes; j++)
cad[j]=c1.ad.data[j];
if(c1.mismoCiclo)
Ad(5,i,cad);
else
Ad(6,i,cad);
}
c1 y ad son estructuras definidas por mi.
Gracias de antemano.