Функции даты и времени Опции

[klem4]

Пытаюсь выцепить например текущий час, почему-то постоянно выдает 0

uses DateUtils {, SysUtils };
begin
  writeln(HourOf(Today)); { HourOf(Date) }
end.

[compiler]

а как найти разницу между переменной датой и сегоднейшй?
мой текст

Uses dateutils;
begin
	writeln('diff = ', daysbetween(strtodate('12/02/2007'), strtodate(DateOf(Today))));	
end.

заранее благодарен.

Добавлено через 2 мин.
P.S. или этот вопрос лучше в задачи...