Delphi type mismatch in expresion when try to filter dbgrid : Am geting this error when i try to filter `DBGrid` by date with `DateTimePicker` component

> Type mismatch in expresion

**Code**

    procedure TGrupeForm.DateCreatedFilterChange(Sender: TObject);
    begin
         if CreatedEditPicker.Date <> Date then
          begin
            ClientDataSet1.Filter := 'Created LIKE '+QuotedStr('%'+DateToStr(CreatedEditPicker.Date)+'%');
            ClientDataSet1.Filtered := True;
          end
          else
            ClientDataSet1.Filtered := False;
    end;

What i do wrong ?