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.