vagoBiker, hay un componente en las jedi que te prodia servir, el JVImagelist, es algo más complicado de usar, que el ImageList y permite tamaños mucho mayors de todas maneras lo que te comentaba del Case es lo siguiente, tu tienes el Siguiente código
Código Delphi
[-]procedure TFormrotametrollave.Timer_imagenesTimer(Sender: TObject);
begin
if (Xf=0) then
begin
Image1.Picture.LoadFromFile('giro_rotam\01.jpg');
end;
if (Xf=1) then
begin
Image1.Picture.LoadFromFile('giro_rotam\02.jpg');
end;
if (Xf=2) then
begin
Image1.Picture.LoadFromFile('giro_rotam\03.jpg');
end;
if (Xf=3) then
begin
Image1.Picture.LoadFromFile('giro_rotam\04.jpg');
end;
if (Xf=4) then
begin
Image1.Picture.LoadFromFile('giro_rotam\05.jpg');
end;
if (Xf=5) then
begin
Image1.Picture.LoadFromFile('giro_rotam\06.jpg');
end;
if (Xf=6) then
begin
Image1.Picture.LoadFromFile('giro_rotam\07.jpg');
end;
if (Xf=7) then
begin
Image1.Picture.LoadFromFile('giro_rotam\08.jpg');
end;
end;
y yo te propongo este otro
Código Delphi
[-]procedure TFormrotametrollave.Timer_imagenesTimer(Sender: TObject);
begin
case Xf of
0:Image1.Picture.LoadFromFile('giro_rotam\01.jpg');
1:Image1.Picture.LoadFromFile('giro_rotam\02.jpg');
2:Image1.Picture.LoadFromFile('giro_rotam\03.jpg');
3:Image1.Picture.LoadFromFile('giro_rotam\04.jpg');
4:Image1.Picture.LoadFromFile('giro_rotam\05.jpg');
5:Image1.Picture.LoadFromFile('giro_rotam\06.jpg');
6:Image1.Picture.LoadFromFile('giro_rotam\07.jpg');
7:Image1.Picture.LoadFromFile('giro_rotam\08.jpg');
end;
end;
creo que es más claro y fácil de seguir.