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.