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