recorrer bucle de imagenes

[strange-forget]

Muy útil lo descrito Neftali, me ha sido de buena utilidad.

Ya resolvi el problema. Era muy sencillo, pero lo estaba enfocando mal.

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if (num < 3) then
begin
num:=num+1;
image1.Picture.LoadFromFile('imatges/' + inttostr(num) +'.jpg');
end;
if (num=3) then
begin
num:=0;
end;
end;