No se si nuestro gran amigo Marcos Zorrilla sabría hacerlo, así que intentaré hecharle una mano. Has probado con lo siguiente
Código Delphi
[-]
IF DateTimePicker.Date = Now then ...
De todos modos, quiero puntualizar una cosa. Lo que Marcos intentaba explicarte es: que no importa crear una variable del tipo DateTime como has hecho con la variable Presente, puedes usar Now directamente sin tener que crear variables innecesarias.
Espero te sirva.
Saludos y Feliz Navidad a todos