Primero que todo, te pido el favor de que no escribas en mayúsculas, pues la verdad es que no esta bien visto que lo hagas ya que representa un grito y además las mayúsculas a mi modo de ver y al de algunos cuantos son engorrosas de leer, asi que te agradecería si editaras tu mensaje...
En cuanto a tu duda, pues... seguramente es porque te falta un signo igual ( = ), trata con el siguiente codigo y nos cuentas:
Código Delphi
[-]
procedure TFrmProgTallerEntrega.EdBusquedaEspecificaKeyPress(
Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := #0;
DMinformes.QInfHistoricos.Filtered:=False;
DMinformes.QInfHistoricos.Filter:='CODMOLDE='+QuotedStr(EdBusquedaEspecifica.Text+'%');
DMinformes.QInfHistoricos.Filtered:=True;
end;
end;