La variable TTime es tratada en delphi como un numero real, donde la parte entera son los dias y los decimales la hora.
entonces cualquier tiempo se puede dividir tanto por un entero como por un real.
Aca te escribo un pequeno ejemplo:
Código Delphi
[-]
var
hora: TTime;
begin
hora := frac(now); Label1.Caption := TimeToStr(hora); Label2.Caption := TimeToStr(hora/5);
o para ver los valores reales:
Código Delphi
[-]
var
hora: TTime;
begin
hora := frac(now);
Label1.Caption := FloatToStr(hora);
Label2.Caption := FloatToStr(hora/5);