Проблема с правильным выводом текста в label

[Bigtyoma]

Помогите пожалуйста,вот есть код, по идее должен выводить в label2 в зависимости от количества дней между сегодняшней датой и датой в datetimepicker слова или "дней" или "дня" или "день", но ошибку в упор не вижу, хоть убейте, помогите найти и исправить.

var
days,k:integer;
q,z,r:integer;
begin
k:=days;
q:= k mod 100;
z:= 11;
r:= 13;
if z <= q <= r then 
Form2.label2.Caption := ' дней'
else
case q of
1: label2.Caption := ' день';
2..4: label2.Caption := ' дня';
else
label2.Caption := ' дней;
end;

[Don Karleone]

k:=days;
а чему равно days, что-то я не увидел. Суде по вашему коду у вас q равно 0.
И что это за запись if z<=q<=r. Должно быть (z <= q) and (q <=r)

[Bigtyoma]

const 
I =1;
...
event:=(DaysBetween(DateTimePicker1.DateTime,Now));
days:=event+I;

Сообщение от Don Karleone

И что это за запись if z<=q<=r. Должно быть (z <= q) and (q <=r)

да эт я что-то намудрил на сонную голову, сначала так было как должно