recorrer bucle de imagenes

[strange-forget]

Tengo la instrucción siguiente dentro del onclick de un bitbtn.

begin
var
num:integer;
begin
for num := 1 to 3 do
begin
image1.Picture.LoadFromFile('imatges/' + inttostr(num) +'.jpg');
end;
num:=num+1;
end;

Las imágenes estan enumeradas como 1,2 y 3.jpg. Mi intención es la de recorrer las imágenes sucessivamente, indiferentemente de donde se encuentre la posición cuando clñique sobre el boton.

Gracias por leerme y todo consejo que me puedan dar a buen seguro me servira de gran ayuda