[lmikle]

А в чем собственно проблема?
TDateTime по сути есть число с фиксированной точкой. И все операции с ним вполне возможны.

Код:

if currentTime < eventTime
  Then ShowMessage(TimeToStr(eventTime-currentTime))
  Else ShowMessage('-' + TimeToStr(currentTime-eventTime));