Несовместимость типов

 ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text := 'select sum(FRECEIVED), sum(FTRANSFERREDFROM), sum(FTRANSFERREDTO), ' +
                            'sum(FDISCHARGED), sum(FDIED) from DDB where FHOSPITAL like ' + QuotedStr('ДС%') + 
//до этого работает безукоризненно, а на условия (ниже) с датами ругается. в БД MS ACCESS формат поля 'FDATE' - дата.
                            ' and FDATE >= ' + FormatDateTime('DD.MM.YYYY', dtpSTART.Date) +
                            ' and FDATE <= ' + FormatDateTime('DD.MM.YYYY', dtpEND.Date);
      ADOQuery1.Open;
      StringGridCALCULATED.Cells[1, 2] := ADOQuery1.Fields[0].AsString;
      StringGridCALCULATED.Cells[2, 2] := ADOQuery1.Fields[1].AsString;
      StringGridCALCULATED.Cells[3, 2] := ADOQuery1.Fields[2].AsString;
      StringGridCALCULATED.Cells[4, 2] := ADOQuery1.Fields[3].AsString;
      StringGridCALCULATED.Cells[5, 2] := ADOQuery1.Fields[4].AsString;
      ADOQuery1.Close;

                            ' and FDATE >= :START and FDATE <= :END ';
  ADOQuery1.Parameters.ParamByName('START').Value := dtpSTART.Date; 
  ADOQuery1.Parameters.ParamByName('END').Value := dtpEND.Date;
  ADOQuery1.Open;