Error al hacer varias busquedas con adoquery

[[Caral]]

Hola
La verdad yo haria un simple filtro asi:
Pensando que pedidos es numerico:

Código Delphi [-]
procedure TForm1.contratoChange(Sender: TObject);
var
   Filtro : String;
begin
  wbuscar.Filtered := False;
  Filtro := 'PEDIDOS Like '+contrato.Text;
  wbuscar.Filter := Filtro;
  wbuscar.Filtered := True
end;

Si pedidos es texto:

Código Delphi [-]
procedure TForm1.contratoChange(Sender: TObject);
var
   Filtro : String;
begin
  wbuscar.Filtered := False;
  Filtro := 'PEDIDOS Like '''+contrato.Text+ '*''';
  wbuscar.Filter := Filtro;
  wbuscar.Filtered := True
end;

Teniendo en cuenta que wbuscar se encuentra abierto.
Saludos