timer срабатывает только один раз!

[KWN, lnc]

Хочу сделать след.

у меня на кнопке button1 код...

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;

а на таймере... скажем...

procedure TForm1.Timer4Timer(Sender: TObject);
begin
ShowMessage('Hello all);
end;

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

[Stilet]

procedure TForm1.Timer4Timer(Sender: TObject);
begin
TTimer(sender).Enabled:=false;
ShowMessage('Hello all);
end;