Acceder a objetos creados en tiempo de ejecución

[ecfisa]

Hola estimado amigo

Una vez asignado el objeto puedes hacer

Código Delphi [-]
  Lista  := TStringList.Create;
  Imagen := TImage.Create(nil);

  Imagen.Picture.LoadFromFile('D:\TEMP\1.JPG');
  Lista.AddObject('IMAGEN1', TObject(Imagen));

  // Ej1: Mostrar el TImage creado  (igual a hacer: Imagen.Parent := Self;)
  TImage(Lista.Objects[0]).Parent := Self;

  // Ej2: Asignar la imágen a otro TImage
  Image1.Picture.Assign(TImage(Lista.Objects[0]).Picture);

Para referirte al objeto imagen almacenado, usa el moldeo TImage(Lista.Objects[n]).

Otro ejemplo similar que asigna una imagen cargada en un TStringList a un TImage creado en tiempo de diseño:

Código Delphi [-]
var
  pic: TPicture;
  Lista: TStringList;
begin
  Lista := TStringList.Create;
  pic := TPicture.Create;

  Lista.AddObject('Imagen1', TObject(pic));
  TPicture(Lista.Objects[0]).LoadFromFile('C:\TMP\IMAGEN.JPG');

  Image1.Picture.Assign(TPicture(Lista.Objects[0]));
...

Saludos