Как сделать проверку на время

[TUberwer]

Вообщем у меня есть 2 datetimepicker, кнопка, и label.
При нажатии на кнопку идет проверка, если системное время в промежутке между двумя datetimepicker, то на label.caption := 'yes'

но если системное время не в промежутке этом, то в label записывается no.
Вот код, но он не работает, просто ничего не происходит после нажатия

procedure TForm1.Button7Click(Sender: TObject);
VAR
 today : TDateTime;
begin
today := Time;
if(today >= datetimepicker1.Time) and (today <= datetimepicker2.Time) then
begin
label2.Caption := 'yes';
end
else
begin
label2.Caption := 'no';
end;
end;

точнее постоянно no выводит

[Аватар]

Time возвращает текущее время без даты, а datetimepicker.Time текущую дату с временем, даже если Kind=dtkTime. Поэтому и no всегда

[evg_m]

today := Time;
showMessage( FormatDateTime('hh:mm:ss:zzz', today)
 +#13#10 +FormatDateTime('hh:nn:ss:zzz', datetimepicker1.Time)
 +#13#10 +FormatDateTime('hh:nn:ss:zzz', datetimepicker2.Time) );

Date-Time Format Strings

h Displays the hour without a leading zero (0-23).
hh Displays the hour with a leading zero (00-23).
n Displays the minute without a leading zero (0-59).
nn Displays the minute with a leading zero (00-59).
s Displays the second without a leading zero (0-59).
ss Displays the second with a leading zero (00-59).
z Displays the millisecond without a leading zero (0-999).
zzz Displays the millisecond with a leading zero (000-999).
t Displays the time using the format given by the ShortTimeFormat global variable.

[Аватар]

Еще можно Frac использовать для выдергивания только времени

if (today >= Frac(datetimepicker1.Time)) and (today <= Frac(datetimepicker2.Time)) then

[phomm]

А можно вместо Time() использовать Now()