[[basti]]

Prueba a usar variables del tipo TTime:

Código Delphi [-]
var totalin: TTime;

totalin:=Hourspan(lun_hs.DateTime,lun_he.DateTime);
tothrs.Text:=timetostr(totalin);