[helper999999]

Подскажите как показывать кадры поочередно используя таймер. И все это в repeat.
пытался так но что то не получается

Код:

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

[muhurov]

А как на счет

Код:

for i:=0 to 7 do begin
image1.picture.loadfromfile(inttostr(i)+'.png');
sleep(100);
end;

[icWasya]

правильно так

Код:

type
  TForm1=class(TForm)
 ......
  private
    imageindex: integer;
 .......
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  image1.picture.loadfromfile(inttostr(imageindex)+'.png');
  if imageindex >=7 then imageindex:=0 else imageindex:=imageindex+1;
end;