用delphi写个程序

在界面添加4个Label控件，一个Timer控件，

timer1的代码如下：

procedure TForm1.Timer1Timer(Sender: TObject);
var
daoshu:integer;//声明倒数是个整型变量
begin
daoshu:=strtointdef(label4.Caption,-1)+1;//把label4的标题值加1赋予给daoshu
label4.Caption:=inttostr(daoshu);//把daoshu加1的结果赋予label4
    if daoshu=1 then//当daoshu=1
    begin
    label1.Caption:='好好学习';
    end;
    if daoshu=5 then//当daoshu=5
    begin
    label2.Caption:='天天向上';
    end;
    if daoshu=10 then//当daoshu=10
    begin
    label3.Caption:='奖金';
    timer1.Enabled:=false;//停止倒数
    end;
end;

添加两个TTimer，设置周期为5000和10000毫秒，然后双击控件图标，写入代码就可以了。