tiempo restante

[marcoszorrilla]

Esto es solamente una idea, pero de entrada funciona, quedan de hacer ciertas comprobaciones y mejorarla un poco.
Se necesita:
Un Tedit con una hora válida que sea superior a la actual por supuesto.
Un Timer
Un Boton.
Un Tlabel en donde vamos mostrando el tiempo que queda.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Timer1.Enabled:=True;
 end;
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 Label1.Caption:=TimeToStr(StrToTime(Edit1.Text) - Time);
 end;

Un Saludo.