Violacion de acceso

[Willo]

Hola a todos;

tengo un problema del cual no encuentro solucion...

tengo un imagelist con varias imagenes, con un numero aleatorio, tomo una imagen de el y se la asigno a un componente de imagen, eso funciona bien la primera vez... pero intente asignarle al evento ON CLICK de la imagen la misma rutina para que el usuario cambiara de imagen y es ahi cuando obtengo el error de violacion de acceso.

esta es la rutina:

procedure TFmenu.Image1Click(Sender: TObject);
var
     x : integer;
     bmp : Tbitmap;
begin
     x:= GetRandomInt(Rotacion.Count);
     if x<12 then
     begin
          Rotacion.getbitmap(x,bmp);
          Image1.Picture.Bitmap.assign(bmp);
     end;
end;

Alguien tiene alguna sugerencia para corregir este problema?...

PD el mensaje de error aparece al ejecutar la linea: Rotacion.getbitmap(x,bmp);

[ecfisa]

Hola Willo.

Lo que entendí: Tenes un TImageList con imágenes y querés que estas se vayan mostrando al azar en un TImage cada vez que hagan click sobre él.

Si es así, proba de este modo:

Código Delphi [-]
procedure TForm1.Image1Click(Sender: TObject);
begin
  Image1.Picture:= nil;
  ImageList1.GetBitmap(Random(ImageList1.Count), Image1.Picture.Bitmap)
end;

Un saludo.