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