[stil]

правильно потому что функция Date возвращает текущую дату а тебе надо вместо

Код:

Present:= Date

записать

Код:

Present:= DateTimePicker1.Date;