Filtrar query con edit

[[eduarcol]]

Hola teclilla, encierra el codigo entre las etiquetas delphi para una mayor legibilidad

prueba con esto a ver si funciona:

Código Delphi [-]
procedure TFormBusPresupuesto.EditBusPresupuestoChange(Sender: TObject);
begin
if EditBusPresupuesto.Text = '' then QueryBuscaPresupuesto.Filtered:=false
else
begin
if length(EditBusPresupuesto.text) <= 10
then QueryBuscaPresupuesto.Filter:='Idpres='+EditBusPresupuesto.Text;
QueryBuscaPresupuesto.Filtered:=true;
end;
end;

Fijate que le quito el * y las comillas entre la que los encierras ya que esos son comodines para texto, prueba y avisas que tal