TDateTime - математика времени

[_SERGEYX_]

Привет всем. Запарился считать время. Может у кого-нибудь есть толковая функция с этой математикой. Задача такая:

var DT1, DT2, tmp: TDateTime;

Допустим у меня в таблице (поле as TDatetime) первая дата DT1
14.09.2007 10:15:30
вторая дата DT2
14.09.2007 09:10:15
как видите, разница в дате/времени
1 час 05 минут 15 секунд.

Как от первого значения отнять второе чтобы получилось
00.00.0000 01:05:15 (или узнать количество минут или секунд, дальше я бы разобрался сам).
Что-либо типа
tmp:= DT1 - DT2 проходит только с TDate. С TDateTime не проходит.
Извините, если непонятно спрашиваю. Сам запутался...

[JTG]

а почему не отнимается?
должно работать

time1,time2: TDateTime;
razn: double;
...
razn := time2 - time1;

Кстати х/з в каком формате результат будет, но точно double )

[_SERGEYX_]

Меня спасает то, что разница не может быть более 24 часов.
Поэтому такая лажа, как я написал ниже, проходит нормально. Но все равно как-то несолидно...

var aMinute: TDateTime;
....................
        aMinute := EncodeTime(0, 0, 0, 0);
{Циклично суммирую разницу во времени}
         while not tmpQuery.Eof do
         begin
               aMinute := aMinute + (tmpQuery.Fields[1].AsDateTime - tmpQuery.Fields[2].AsDateTime);
            tmpQuery.Next;
         end;
{Если сумма всех разниц более 15 часов то пишу во временную таблицу}
         if aMinute > StrToDateTime('15:00:00') then
         begin
            with tmpTable do
            begin
               Insert;
               FieldByName('kod').AsString := tmpKod;
               FieldByName('fio').AsString := tmpFIO;
               FieldByName('aTime').AsString := timetostr(aMinute); //сплюсованная разница
               Post;
            end;
         end;