Картинки в таймере

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

[NetSpace]

забыл сделать счётчик.

//до таймера...
count:=0;
//в таймере...
inc(count);
if count=1 then Image1.Picture.LoadFromFile('0.png');
if count=2 yhen Image1.Picture.LoadFromFile('1.png');
...

[Arigato]

var PngIdx: Integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.LoadFromFile(IntToStr(PngIdx)+'.png');
PngIdx:=(PngIdx+1) mod 8;
end;

[helper999999]

Сообщение от Arigato

var PngIdx: Integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.LoadFromFile(IntToStr(PngIdx)+'.png');
PngIdx:=(PngIdx+1) mod 8;
end;

шикарно спасибо за столь быстрый ответ =)

[school_teacher]

а можно ли вопрос а если я отрисовываю с помощью hBitmap, в отличии от ТС на winapi, как мне сделать. На форму я знаю как просто отрисовать

var
  hWindow: HWND;
  bmp,oldbmp: hBitmap;
  dc,memdc: HDC;

//****
function WinProc(Handle: HWND; Msg: UINT; WParam: Integer; lParam: Integer): Integer;stdcall;
var
  ps: PAINTSTRUCT;
begin
  Result:=0;
  case msg of
    WM_CREATE:
      begin
        dc:=GetDC(0);
        memdc:=CreateCompatibleDC(dc);
        bmp:=LoadRes(hInstance,'image1','PNG');
        oldbmp:=SelectObject(memdc, bmp);
      end;
    WM_PAINT:
      begin
        BeginPaint(Handle,ps);
        BitBlt(ps.hdc,414,383,34,34,memdc,0,0,SRCCOPY);
        EndPaint(Handle,ps);
      end;
    WM_DESTROY:
      begin
        DeleteObject(SelectObject(memdc,oldbmp));
        DeleteDC(memdc);
        ReleaseDC(0,dc);
        PostQuitMessage(0);
        Exit;
      end;
  end;
  Result:=DefWindowProc(Handle,Msg,WParam,LParam);
end;

LoadRes самапал, функция загрузки из ресурсов