Динамическая смена картинок по времени

[вася радугов]

Надо, чтобы картинку менялись через 3 секунды. Я использую вот такой код, но загружается только первая, а картинки не меняются.

procedure TForm1.FormCreate(Sender: TObject);
begin
 With Timer2 do
    begin
 timer2.Enabled:=true;
timer2.Interval:=3000;
 Image2.Picture.LoadFromFile('658149.jpg');
i:=2;
end;
 end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if i>5 then timer1.Enabled:=false;
case i  of
  2: Image3.Picture.LoadFromFile('658154.jpg');
  3: Image4.Picture.LoadFromFile('658703.jpg');
  4: Image5.Picture.LoadFromFile('660437.jpg');
  5: Image6.Picture.LoadFromFile('660456.jpg');
  end;
  inc(i);
end;

Картинки находятся в папке с программой.
Помогите исправить ошибку.

[Stilet]

Поставь бряк в таймер - до него вообще выполнение доходит?

[вася радугов]

Объясните, пожалуйста, как

[Stilet]

Ну... Например становишься курсором на первую строчку процедуры таймера и жмешь F5. Курсор не мышиный а текстовый. Или мышкой слева от этой строки по белому полю редактора кликай - точка прерывания будет установлена.
Далее запускай прогу в режиме отладки (Если это Делфи ХЕ то кнопка с зеленым Play и красным тараканчиком на ней) и наблюдай стопанется Делфи на точке аль нет.

[doktor255]

With Timer2 do
    begin
 timer2.Enabled:=true;
timer2.Interval:=3000;
 Image2.Picture.LoadFromFile('658149.jpg');
i:=2;
end;

Извиняюсь за офтопик, мне просто стало любопытно, с какой целью в данном огрызке кода был применён оператор With?