Crear Imagenes en ejecución

[gabrielkc]

procedure TForm1.CreaImgenes(n:Integer);
var Image:TImage;
begin
 for x:=1 to n do
  begin
   image:=TImage.Create(Self);
   image.Top:=0;
   image.Left:=x*32;
   image.Width:=32;
   image.Height:=32;
   Image.AutoSize:=False;{Para que no cambie el tamaño del componente}
   Image.Stretch:=True;{Para que se ajuste al tamaño que asignamos}
   Image.OnClick:=ClickImage;
   image.Parent:=Self;
   image.Tag:=x;
   Image.Name:= 'Imagen'+IntToStr(n); //El nombre de la imagen quedaba fija
   image.Picture.LoadFromFile('C:\images\Powered5.jpg');//imagen a cargar
   image.Show;
  end  
 end;

y clickimage se define en la parte privada de la forma como :


procedure ClickImage(Sender:TObject);


y la implementacion:

procedure TForm1.ClickImage(Sender: TObject);
begin
 showmessage('hiciste click en la imagen'+inttostr(tcomponent(sender).Tag));
end;