анимация - Изображение должно меняться по кадрам

[Terrance!]

Изображение должно меняться по кадрам

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.Bitmap.LoadFromFile('1.bmp');
Image1.Picture.Bitmap.LoadFromFile('2.bmp');
Image1.Picture.Bitmap.LoadFromFile('3.bmp');
Image1.Picture.Bitmap.LoadFromFile('4.bmp');
Image1.Picture.Bitmap.LoadFromFile('5.bmp');
Image1.Picture.Bitmap.LoadFromFile('6.bmp');
Image1.Picture.Bitmap.LoadFromFile('7.bmp');

Но так используются все 7 картинок сразу, а как сделать, чтобы чтобы кадры чередовались?

[Serge_Bliznykov]

заведите в свойствах формы переменную, например, CurKadr

 CurKadr : integer;
...
на создание формы 
procedure  TForm1.FormCreate()
...
  CurKadr := 1;
  Image1.Picture.Bitmap.LoadFromFile(IntToStr(CurKadr)+'.bmp');


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(CurKadr);
  if CurKadr>7 then CurKadr := 1;
  Image1.Picture.Bitmap.LoadFromFile(IntToStr(CurKadr)+'.bmp');

всё.

[Terrance!]

Спасибо ,а то я уже давно на этом застрял)