Sorry, was my mistake, i forgot to start the timer.
now my code is:
procedure TForm2.Timer1Timer(Sender: TObject);
var
a,b,c:integer;
begin
if spining = true then
begin
randomize();
a := random(7);
b:= random(7);
c := random(7);
Image1.Picture.Bitmap.SetSize(ImageList1.Width, ImageList1.Height);
ImageList1.Draw(Image1.Picture.Bitmap.Canvas, 0, 0, a);
Image2.Picture.Bitmap.SetSize(ImageList1.Width, ImageList1.Height);
ImageList1.Draw(Image2.Picture.Bitmap.Canvas, 0, 0, b);
Image3.Picture.Bitmap.SetSize(ImageList1.Width, ImageList1.Height);
ImageList1.Draw(Image3.Picture.Bitmap.Canvas, 0, 0, c);
end;
end;
Is a simple slot machine, but the images changes randomly only the first time. timer1 is enabled and have an interval of 250. Maybe i must erase the images??? The imagelist have 8 diferent images.
EDIT
I fixed it adding imageX.picture.clear;
Thanks a lot