По истечению времени таймера сменить изображение

[Алексей_2012]

по концу таймера должно менятся изображение на одно, затем на второе, затем на третье, мой код не работает, исправьте пожалуйста

procedure TForm3.Timer1Timer(Sender: TObject);
label m1000;
 begin
m1000:Enabled:=true;
image1.Picture.loadfromfile('E:\проги на делфи\тест\биг1_1.bmp');
enabled:=false;
Enabled:=true;
Image1.Picture.loadfromfile('E:\проги на делфи\тест\биг2_1.bmp');
enabled:=false;
Enabled:=true;
Image1.Picture.loadfromfile('E:\проги на делфи\тест\биг3_1.bmp');
enabled:=false;
goto m1000;
end;
{interval 3000}

[Stilet]

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if TTimer(Sender).tag=3 then TTimer(Sender).tag=1 
else TTimer(Sender).tag:=TTimer(Sender).tag+1;
image1.Picture.loadfromfile('E:\проги на делфи\тест\биг'+IntToStr(TTimer(Sender).tag)+'_1.bmp');
end;

Подходит?

[Алексей_2012]

подходит конечно)) спасибо, но вот еще что, по вашему коду, сначала проходит 3 секунды, а затем только уже появляется изображение, и меняется через 3 секунды, мне бы убрать начальную временную задержку

[Stilet]

пропиши принудительный вызов Timer1Timer(Timer1) там где он должен начать отрабатывать.