Lo otro que puedes hacer es agregar DateUtils a la uses de tu unit y crear una simple regla de 3 con la funcion que te ofrece ese utilidad.
asignas una variable a la funcion para que sepas el resultado seria algo como
****
var
n:integer;
begin
n:= HoursBetween(hora1.time,hora2.time);
showmessage(IntToStr(n));
end.
****
|