Работа Таймера

[Danglover]

Доброго времени суток!

При открытии формы включается таймер, показывается картинка на 10 сек, затем появляются вопросы, т.е. таймер работает только для показа картинки.

Проблема такая: если начинать заново, т.е. заново открыть форму с картинкой (не выходя из программы), то во второй раз таймер не работает, а появляются сразу вопросы.

Изначально стоит в инспекторе объектов Timer1.Enabled := True, интервал 10000, затем прописано

procedure TForm4.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Image1.Visible := False;

Что неправильно?

[W0LF]

Потому, что таймер был отключен. А кто его включил? Вот и не работает.

[Danglover]

procedure TForm4.FormShow(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer1.Interval:=7000;

end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
Image1.Visible := False;

Так тоже не работает..

[evg_m]

Проблема такая: если начинать заново, т.е. заново открыть форму с картинкой (не выходя из программы), то во второй раз таймер не работает, а появляются сразу вопросы.

procedure TForm4.FormShow(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer1.Interval:=7000;

end;

при повторном открытии OnShow уже не вызывается.
либо OnAcivate
либо там где код повторного показа

  form4.timer1.enabled;=true;
  form4.show;