Violacion de acceso

[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.