简单问题？没分了(20分)

我想这样实现：
有timer控件，为1秒,text显示现在时间,当整时时一个提示(showmessage)，如果不点showmessage的确定时text也要在显示现在时间
procedure ...timer();
beign
edit.text:=datetimetostr(now());
if formatdatetime(‘MM’，now())='00' then
showmessage('整时');//此时我不点showmessage的确定，text也要在“走”时间。
(如何实现）....
end;

procedure Form1.TForm1.Timer1Timer(Sender: TObject);
beign
edit1.text:= datetimetostr(now());
Application.ProcessMessages;//加上此句即可
if formatdatetime(‘MM’，now())='00' then
showmessage('整时');//此时我不点showmessage的确定，text也要在“走”时间。
end;

呵呵，可以这样：
放一个timer2,平时enable:=false。
当timer1发现到了整时时，就timer2.enable:=true;
在timer2timer事件里写：
showmessage('整时');
timer2.enable:=false;
绝对可以，免得写多线程。