Gracias Casimiro por tu tiempo que es muy valioso. Gracias Neftali por tu explicación y conocimientos compartidos. El codigo quedo de la siguiente manera (ahora me ocuparé de algunos detalles.
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);
Application.ProcessMessages;
lContador.Text;
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;
end;
Hour := Hour -1;
Min := 60;
HourStr := IntToStr(Hour);
lContador.Text := HourStr + ' : ' + MinStr + ':' + SecStr;
end;
end;
Está funcionando, lo dejo por aqui, tal vez a alguien le haga falta. Gracias totales!