[jhonny]

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;