关于定时器的问题

Question

做了一个小的计费器，当用户还有最后五分钟时提示，就象网吧那样，时间到时再定时器终止，但最后五分钟的代码不知道加在何处好，如果加在timer1中时，它会提示60次，而我们只想让它提示一次，如果放在timer外面，又不知道放在何处才能时刻监视时间是否到了最后五分钟。请指教　，立即给分。

Answer 1

自已定义一个是否已提示的变量不就行了。比如：
{$J+}
procedure xxxx.ontimer();
const
  warning : boolean=false;
begin
  if 所剩时间小于5分钟 then
  begin
    if not warning then
    begin
       warning := true;
       //提示
    end;
       
  end;
end;

Answer 2

用两个timer不可以吗？把第二个timer的interval设成5分钟。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Timer2.Enabled:=True; 
end;