¿Como hacer una secuencia de imagenes?

[[Lepe]]

Muy bueno el ejemplo, pero la última parte me gusta menos... ¿qué tal esto?

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   i := (i+1) mod length(ImageArray);
   Image1.Picture.LoadFromFile(ImagePath + ImageArray[i]);
end;