Fórum contador de tempo regressivo #350817

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?[/code]