[Cheb]

Не понимаю, зачем так сложно

Может быть, так лучше:

max, min тип Time
Result тип Integer, либо Duration
Result := max - min;