отображение в image

[galick]

Всех привет. Помогите решить задачку. В Delphi на форме есть один button и один image. В image изначально стоит картинка 00.png, через loadfromfile указываю путь например 'D:\images\im1\01.png' и все хорошо. Теперь не могу отобразить в этом же image все изображение по одному с задержкой на 1 секунду (изображение в той же папке с названиями 02.png, 03.png, 04.png.... и т.д.)
Может кто уже делал? помоги пожалуйста

[ZX Spectrum-128]

for i:=1 to n do
  begin
     s:=inttostr(i);
     if length(s)=1 then
       s:='0'+s;
       filename:='d:\....'+s+'.png';
       image1.loadfromfile(filename);
       // задержка в секунду
  End;

[type_Oleg]

Еще вариант - ставите в форму Timer, и

var num:Byte;
const numMax=99;  // например
procedure TForm1.FormCreate(Sender: TObject);
begin
 num:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:=not  Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if num<10 
  then filename:='0'+IntToStr(num)+'.png'
  else  filename:=IntToStr(num)+'.png';
 Image1.Loadfromfile(filename);
 if num<=numMax then Inc(num) else num:=0;
end;

В свойствах Timer установить Interval равным 1000.

[galick]

Спасибо Большое