Subtração de Hora

[johnbh3]

Ola

Pessoal como eu faço uma subtração de hora.
Exemplo:

Tenho 
00:40:00

Que diminuiu 1 hora desses 40 minutos

Ou seja 
01:00:00-00:40:00 

Se eu fizer a minuição simples 

 var
  hra1,hra2,hrSub:TTime;
begin
  hra1:= StrToTime(Edit2.Text);
  hra2:= StrToTime(Edit1.Text);
  hrSub:=hra2-hra1;

 

Eu vou ter um resultado de 20 minutos
Resultado: 00:20:00

O mesmo ocorre até no execel
Na verdade gostaria que ficasse com valor de tempo ZERO.

 

[Daniel Simoes]

Tente:

Uses
  DateUtils

.....
  HorasEntre := HoursBetween(Anow, Athen);