关于计时器！

Question

如何利用Delphi中的Timer制作一个倒计时工具。
如倒计时30分钟。显示格式为
30：00
29：59
29：58
.....

Answer 1

var hh,mm : integer;procedure form1.oncreate (sender : Tobject);
begin
  hh := 30;
  mm := 0;
end;procedure form1.timer1ontimer (sender : tobjcet);
begin
  dec (mm);
  if mm = -1 then
  begin
    mm := 59;
    Dec (hh);
  end;
  label1.caption := inttostr (hh) + ':' + inttostr (mm);
  if (hh =0) and (mm=0) then
    showmessage ('time over');
end;

Answer 2

将Timer的interval设为1000
呵呵，默认的！
就是一秒种执行一次！