[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;