Dado que la fecha y hora hagas lo que hagas se guardan juntas, y la parte entera es la fecha y la fraccionaria la hora, esto que sigue te funcionara sin problemas.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
if Int(DateTimePicker1.Date) = Date then
showMessage('Fecha correcta')
else
showMessage('Fecha Incorrecta');
end;
Un Saludo.