Crear Imagenes (objetos) En Tiempo De Ejecucion, creacion y

[bladde]

que tal amigos necesito realizar una simulacion y quisera implementar algo como esto crear un objeeto TImage en tiempo de ejecucion cada ves q1ue nesecite un muñeco ya lo hice usando una lista donde tengo definido una variable TImage *ima todo se detectabien pero al momento de poner lista->ima->picture->loadfromfile("c:archivimag"); me da un error y el programa se cierra. me dijeron pero no me supieron explicar como crear y destruir estos objetos entendiendo por esto que ya noseria de la forma en que lo pienso (es una interrogante ya q nose crear ni destruir ) trabajo con unos timer q controlanm los movimientos se que otra forma es tener n+1 imagenes cargadas en el programa y ir poniendolas visibles para moverlas pero no creo que sea muy eficas (apesar de que si no haverigua la otra forma la hago de esa : ))
gracias amigos de verdad si consigo algo sobre esto se los traigo para todos aprender

//intente con esto pero no me funciona esta dentro de un botton al precer crea el objeto pero no lo muestra en la aplicCION
//CODIGO:

cim++;
TImage *Image = new TImage (Application);//aqui creo el objeto
Image->Align=alNone;// pongo los atributos q quiero
Image->AutoSize=false;
Image->Center=false;
Image->Constraints->MaxHeight=0;
Image->Constraints->MaxWidth=0;
Image->Constraints->MinWidth=0;
Image->Constraints->MinHeight=0;
Image->Cursor=crDefault;
Image->DragCursor=crDrag;
Image->DragKind=crDrag;
Image->DragMode=dmManual;
Image->Enabled=true;
Image->Visible=true;
Image->Height=105;
Image->HelpContext=0;
Image->HelpKeyword="";
Image->HelpType=htContext;
Image->Hint="ui esta";
Image->IncrementalDisplay=false;
Image->Left=40;
Image->Name="imag"+IntToStr(cim);
Image->ParentShowHint=true;
Image->Picture->Bitmap->FreeImage();
Image->Picture->Bitmap->LoadFromFile("c:\\m.bmp");//cArgo la imagen
Image->Proportional=false;
Image->ShowHint=true;
Image->Stretch=false;
Image->Tag=0;
Image->Top=80;
Image->Transparent=true;
Image->Visible=true;
Image->Width=105;


PEro no se ve nada en el form eso lo puse dentro de un botton aldarle clic se creara un objeto TImage pero este no seve algen save como hcer?

[bladde]

struct persona{//ESTRUCTURAS DE LOS TERMINOS
TImage *imag;// tipo TImage
int mesa_come;
persona *sig;
};
typedef persona *pter;
pter person;
pter nuevo;


//aqui cargo las imagenes y creo el objeto dando espacio de memoria

void imag(TImage *Image1)
{
pter aux;
aux=person;
i++;
//if(person->sig==NULL)
nuevo->imag=new TImage (Application);
nuevo->imag=Image1;
nuevo->imag->Picture->Bitmap->FreeImage();
nuevo->imag->Picture=NULL;
if(i==1)
{
nuevo->imag->Picture->LoadFromFile("e:\\Muñec1.bmp");
nuevo->imag->Visible=false;

}
else{
if(i==2)
{
nuevo->imag->Picture->LoadFromFile("e:\\Muñec2.bmp");
nuevo->imag->Left=50;
nuevo->imag->Top=80;
nuevo->imag->Visible=false;
}
else{
if(i==3)
{
nuevo->imag->Picture->LoadFromFile("e:\\Muñeca2.bmp");
nuevo->imag->Left=150;
nuevo->imag->Top=180;
nuevo->imag->Visible=false;

}
else{
nuevo->imag->Picture->LoadFromFile("e:\\Muñeca1.bmp");
nuevo->imag->Left=250;
nuevo->imag->Top=280;
nuevo->imag->Visible=false;

}
}
}

este codigo carga cada uno de los archivos .bmp y crea la lista pero cuando carga de un archivo al otro el archivo uno se borra es decir el carga y muestra muñec1 cuando carga muñec2 se borra muñec1 y apesar de que cuando trato de moverme en la lista no se muestran las imagenes