[NumLock]

реализация 1:

Код:

function DiffTime(ANow: String; ATime: String): String;
begin
  Result:=TimeToStr(StrToDateTime(ATime)-StrToDateTime(ANow));
end;

реализация 2:

Код:

function DiffTime(ANow: String; ATime: String): String;
var
  diff: TDateTime;
  h, m, s, ms: Word;
begin
  diff:=StrToDateTime(ATime)-StrToDateTime(ANow);
  DecodeTime(diff, h, m, s, ms);
  Result:=Format('%.2d час. %.2d мин. %.2d сек.', [h, m, s]);
end;

использование:

Код:

begin
  Edit1.Text:=DiffTime(DateTimeToStr(Time), '12:00');
  Edit2.Text:=DiffTime(DateTimeToStr(Time), DateTimeToStr(Time));
end;