[[maeyanes]]

Que control estás usando?

Si es un TDateTimePicker, usa su propiedad Date para obtener solo la fecha.

Código Delphi [-]
var
  Fecha: TDate;

begin
  Fecha := DateTimePicker1.Date;
  if DBFecha = Fecha then
    ShowMessage('Las fechas son iguales');
end;