小菜鸟遇到一个问题了，急于解决(20分)

我想用下面的代码实现倒数数的功能（从533倒数到零），可是运行之后却什么也没有看到，不知道为什么，帮帮菜鸟我吧
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i:integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=553;
for i:=553 to 0 do
begin
label1.Caption:=inttostr(i);
end;
i:=i-1;
end;

end.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i := 553 downto 0 do
label1.Caption:=inttostr(i);
end;

直接就显示出来一个0，郁闷，我本来是想让数字从553变到0的，每隔一秒就变化一次的

楼上的代码当然不行了
For i:=533 downto 0 do
begin
label1.caption:=inttostr(i);
Refresh
Sleep(1000);
end;

同意楼上

var
i:integer;
begin
for i:=553 downto 0 do
begin
label1.Caption:=inttostr(i);
Refresh;
sleep(1000);
end;
end;
你觉得有问题吗？循环没执行完时关闭是不是要强行关闭呀？
多简单的问题呀！
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
x:integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(x);
if x=0 then Timer1.Enabled:=False;
label1.Caption:=inttostr(x);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
x:=553;
Timer1.Enabled:=True;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
for I:=538 downto 0 do
begin
Label1.Caption:=IntToStr(I);
Label1.Refresh;
Sleep(10);
end;
end;
看看这个

timer就是一个循环了。

谢谢各位