Gracias Casimiro por tu tiempo. Este es el código pero el "update" no me lo reconoce rad studio, si en delphi 7
Código Delphi
[-]procedure TForm1.btnStartClick(Sender: TObject);
var
Min,Hour,Sec:Integer;
MinStr,HourStr,SecStr:String;
begin
Hour := StrToInt(HoursEdt.Text);
Min := StrToInt(MinsEdt.Text);
Sec := StrToInt(SecEdt.Text);
HourStr := IntToStr(Hour);
MinStr := IntToStr(Min);
SecStr := IntToStr(Sec);
while Hour > -1 do
begin
while Min > -1 do
begin
while Sec > -1 do
begin
Sleep(1000);
Sec := Sec -1;
SecStr := IntToStr(Sec);
lContador.Text := HourStr + ':' + MinStr + ':' + SecStr;
end;
Min := Min -1;
Sec := 60;
MinStr := IntToStr(Min);
lContador.Text := HourStr + ' : ' + MinStr + ' : ' + SecStr;
lContador.Update;
end;
Hour := Hour -1;
Min := 60;
HourStr := IntToStr(Hour);
lContador.Text := HourStr + ' : ' + MinStr + ' : ' + SecStr;
lContador.Update;
end;