como hago un sistema de rotacion de imagenes

[Odnanref]

Hola

Mira si dices que tienes imagenes dentro de una misma carpeta podrias intentar ponerles un nombre generico a todas y solamente agregarles un numero para hacerlas diferentes entre si ejem:

Si tienes dos imagenes que se llaman gato.bmp y perro.bmp puedes ponerles image1.bmp y image2.bmp respectivamente.

Teniendo un nombre generico es mas facil hacer el cambio de imagen.
Supongamos que vas a utilizar dos botones para ir adelante y atras.

var
ind:integer; {esta variable te servira como indicador para saber que imagen estas cargando}


procedure TForm1.adelanteClick(Sender: TObject);
begin
ind:=ind+1;
image1.picture.loadfromfile('C:\Mis documentos\Mis imagenes\imagen'+inttostr(ind)+'.bmp');
end;

procedure TForm1.atrasClick(Sender: TObject);
begin
ind:=ind-1;
image1.picture.loadfromfile('C:\Mis documentos\Mis imagenes\imagen'+inttostr(ind)+'.bmp');
end;

Si te das cuenta utilizo una variable para cambiar el nombre de la imagen, al sumar o restar el valor de la misma, esa manera tu despliegas todas la imagenes que tienes en la carpeta, con el nombre generico "imagen".

Solo te faltaría delimitar el incremento para que no mandes llamar imagenes que no existen.

Espero que te sirva

Saludos desde aguascalientes México