ежесекундное обновление label

[Dop]

в label грузится DaysBetween(DateTimePicker1.DateTim e,Now) , подскажите как сделать чтобы цифры в label обновлялись, если,например, изменить в настройках дату, либо при наступлении следующего дня. пробовал в таймере писать(чтобы обновлялось в полночь):

event:=(DaysBetween(DateTimePicker1.DateTime,Now));
if formatdatetime('hh:mm',now) = '00:00' then
Form1.Label4.Caption:= FloatToStr(event)

обновляется,но вместо того что должно быть становится намного больше( вместо 204 становится более 400)

[Stilet]

if formatdatetime('hh:mm',now) = '00:00' then

прикольно... а заменить это на функции minuteof и secondsof не хочешь?

[Dop]

благодарю, вроде получилось =)