[lmikle]

Код:

uses
  DateUtils;

var
  A : Integer;
begin
  A := DaysBetween(DateOf(DateTimePicker1.Date),DateOf(Date));
end;

Часы, все тоже A умнож на 24. Или более точно:

Код:

A := HoursBetween(DateOf(DateTimePicker1.Date),Now);