[U.B.M.]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  hh, mm, ss, zzz : Word;
  delta : Integer;
  time_interval : TTime;
begin
  DecodeTime(Now, hh, mm, ss, zzz);

  delta := (необходимый час*3600 + необходимая минута*60) -
           (hh*3600 + mm*60 + ss);
  time_interval := EncodeTime(delta div 3600, delta div 60, delta mod 60, 0);
  label1.caption := TimeToStr(time_interval);
end;

само собой, delta должна быть неотрицательной.