Смена изображений через определенное время

[N.i.k.o.l.a.y.]

Доброго времени суток!
У меня тут проблемка.... я не очень хорошо работаю с таймером в delphi.
Вообщем задача такая:
Через определенное время должно меняться изображение, например 10 изображения в секунду.
Очень нужна помощь, заранее спасибо.

[hon]

Бросаете Timer с вкладки System.
Ставите Enabled=true, Interval=10000 (10 сек).
В событии OnTimer пишите, что должно происходить каждые 10 сек.

[Stilet]

Откуда берутся изображения?

[Человек_Борща]

Он хочет 10 кадров в секунду таймерами делать....

[N.i.k.o.l.a.y.]

фотографии берутся из папки.

Смысл в том что получается анимация вращения колес.

[Sciv]

сделай флешку или анимированную гифку, кинь на форму и не парься. Нафига нужен код там, где все решается дизайном?

[Stilet]

Нафига нужен код там, где все решается дизайном?

Согласен. Но если уж так то :
1) Использовать ImageList для хранения последовательности изобажений
2) Именовать файлы так, чтоб потом можно было обратится к ним по номеру

procedure TimerTimer(...)
begin
 with TTimer(Sender) do begin
  tag:=tag+1;
  if FileExists('d:\photos\'+IntToStr(tag)+'.jpg') then
   Загружаем 'd:\photos\'+IntToStr(tag)+'.jpg' в Image 
 end;
end;

Идея ясна?

[Sciv]

1) Использовать ImageList для хранения последовательности изобажений
2) Именовать файлы так, чтоб потом можно было обратится к ним по номеру

Имхо, ImageList удобнее. На загрузку файлов с диска может еще время уходить, в зависимости от мощности и загруженности компьютера.

UPDATE. Поздравьте меня, у меня репа в полметра - если с нуля считать

[N.i.k.o.l.a.y.]

Про то что проще сделать анимацию знаю... но задание что должно быть по таймеру.
У меня всеравно что то не получается(( Вот прога:

[Sciv]

Ну если Вам нужны замечания по задаче, не касающиеся исходного вопроса, то сразу говорю: задавать статический адрес хранения рисунков на диске не гуд! Ой не гуууд...