появление и исчезновение изображения

[RevenGGe]

Подскажите пожалуйста. К примеру нажимаю я button1 и появляется изображение. Через, припустим, 5 сек, оно исчезает. Как это сделать?

[Stilet]

Это дела для таймера. После нажатия запускай таймер, и показывай изображение. В обработчике таймера изображение убирай.

[RevenGGe]

procedure TFPlay.Button1Click(Sender: TObject);
begin
tmr1.enabled:=true;
img1.visible:=true;
end;

procedure TFPlay.tmr1Timer(Sender: TObject);
begin
  img1.Visible:=False;
end;

как-то так?

[Shouldercannon]

procedure TFPlay.Button1Click(Sender: TObject);
begin
  img1.visible:=true; 
  tmr1.enabled:=true;
end;

procedure TFPlay.tmr1Timer(Sender: TObject);
begin
  tmr1.enabled:=false; 
  img1.Visible:=False;
end;