[Yurk@]

NT_AUTHORITY, MinutesBetween тут не прокатит, т.к. она возвращает целую разницу минут ... а нужно секунды !

AIMor, предлагаю такой код:

Код:

uses DateUtils;
...
var
d1,d2:TDateTime;
d:double;
begin
d1 := EncodeDateTime(2009, 08, 10, 21, 06, 0, 1); // первая дата
d2 := EncodeDateTime(2009, 08, 10, 21, 06, 07, 0); // вторая дата
d:=DaySpan(d1,d2); считаем дробную разницу в днях
ShowMessage(FloatToStr(d*86400));// умножаем на кол-во секунд в дне

Результат: 6,99 секунд