contador de tempo regressivo trava programa

olá,

eu achei uma dica pra fazer um contador de tempo regressivo, coloquei no onclick de um botão pra testar, mas quando clico o programa fica travado.

o codigo é este:

var

 Tempo : TTIME;
 begin
 Tempo := StrToTime('00:05:00');
 while tempo <> STrToTime('00:00:00') do
 begin
 Label1.caption := Timetostr(StrToTime('00:05:00') - Tempo);
 Sleep(1000);
 Application.processmessage;
 Tempo := Tempo - StrToTime('00:00:01');
 end;

 end;

o que eu devo alterar?