Busqueda en un Query

[Alejandrina]

HOLA A TODOS...
ESTOY INTENTANDO HACER LO MISMO PERO ME MUESTRA UN ERRO DE 'FILTER EXPRESSION INCORRETLY TERMINATED'...
TENGO EL TDBGRID CON UN DATASOURCE APUNTADO A UN QUERY Y PRETENDO QUE CUANDO EL USUARIO DIGITE EL UN EDIT MUESTRE SOLO EL REGISTRO QUE ESTE DESEA...LO INTENTE DE LAS FORMAS ANTERIORES PERO NO ME DA...
QUE PUEDO ESTAR HACIENDO MAL?

procedure TFrmProgTallerEntrega.EdBusquedaEspecificaKeyPress(
  Sender: TObject; var Key: Char);
begin
 if key = #13 then
    begin
      key := #0;
      DMinformes.QInfHistoricos.Filter:='CODMOLDE'+QuotedStr(EdBusquedaEspecifica.Text+'%');
      DMinformes.QInfHistoricos.Filtered:=TRUE;
    end;
end;

DE ANTE MANO GRACIAS POR LA AYUDA