forum.boolean.name - Некорректная работа getCurrentTime

Всем привет!
Функция getCurrentTime некорректно определяет время.
Например в таком фрагменте:

Код:

        t := getCurrentTime;

        if Phone(CurrentOrder.Phone) = -1 then

        begin

        end;

        Duration := getCurrentTime - t;

переменная Duration иногда может принимать отрицательные значения.
Кто-нибудь сталкивался с подобными проблемами с функцией getCurrentTime?