HourSpan

[janexa]

Hola tengo un problema con el HourSpan

CODIGO delphi:
var totalin,totalon: Variant;

totalin:=totalin+Hourspan(lun_hs.DateTime,lun_he.DateTime);
totalon:=totalon+HourSpan(lun_hsc.Time,lun_hec.Time);
totalin:=totalin-totalon;
tothrs.Text:=floattostr(totalin);

ejemplo tengo en un DateTime con 9:00 am y otro 5:30pm
y me da totalin:=8.50 y yokiero ke me de 8.30
para ke sean las horas totales sera por el float???