Aber wenn du es unbedingt mit einer Schleuife machen willst, dann bitte so, dass die anwendung noch reagiert:
Delphi-Quellcode:
procedure delay(msec:longint);
var
start,stop:longint;
begin
start := gettickcount;
repeat
stop := gettickcount;
application.processmessages;
until (stop - start ) >= msec;
end;
procedure TForm1.Button1OnClick(Sender: TObject);
var
i : Integer;
begin
for i := 10 downto 0 do
begin
Label1.Caption := IntToStr(i);
Delay(1000);
end;
end;