[NEG1414]

Buenas haber si me doy Explicado

Tengo dos Formularios Uno Principal y otro Secundario.Desde el formulario Principal accedo
al Secundario de forma modal pasando por referencia un Objeto que contiene varios atributos:


Código:

TObjeto PasObjeto;

LlamaForm = new TFormSecundario(this,*PasObjeto);

//Mostramos el Formulario como modal
switch (LlamaForm->ShowModal())
{
case mrOk:
break;
case mrCancel:
break;
}

delete LLamaForm;


En el Formulario Secundario creo como atributos Globales varios vectores dinamicos:
y asigno el Objeto que paso a un atributo del Mismo Tipo

Código:
class TFormSecundario : public TForm
{
private:

TObjeto *PssObj

TStringList *Vector1;
AnsiString *Vector2;
short *Vector3;
char *Vector4 ;
.................................

public:

__fastcall TFormSecundario(TComponent* Owner,TObjeto &PO);

}

__fastcall TFormSecundario(TComponent* Owner,TObjeto &PO);
{
PssObj = &PO
}

Tanto el Objeto "Pasado" como los vectores ( los inicializo en el Evento FormActivate) operan perfectamente
una vez salgo del FormSecundario Elimino todos vectores y regreso al FormPrincipal.

Código:
delete Vector1;
delete Vector2;
....

Modalresult= Ok

Y es aqui cuando surge el problema al acceder de nuevo desde el FormPrincipal al Secundario
me da el siguiente error

Acces Violation at address XXXXXXX in module Vcl60.bpl

He probado varias cosas y he comprobado que a medida que convierto los vectores dinamicos en fijos me permite acceder
mas veces seguidas al Formulario Secundario sin darme error... Me Explico:
Si convierto AnsiString *Vector2; en AnsiString Vector[20];
me permite acceder 3 veces al Form antes de darme el error
Si tambien convierto short *Vector3; en short Vector{20];
me permite acceder 7 veces seguidas antes de darme el error
y asi sucesivamente.

Alguna Idea Gracias

Nota: Se que ese error se suele dar cuando no se Inicializa algun Objeto
o cuando se declara un vector dinamico no se inicializa y sin embargo se
utiliza, creo que no es el caso.