Busqueda incremental con ComboBox

[Lenny]

Tengo un pequeño problema en el cual espero peudan ayudarme.
Necesito hacer una busqueda incremental en una base de datos, encontre este codigo que funciona bastante bien:

Código Delphi [-]
procedure TProductos.Edit1Change(Sender: TObject);
Var
Valor,Valor1 : String;
begin
     if Edit1.text = '' then
     begin
     BDatos.ZTable3.Filtered := false;
     exit;
     end;
         BDatos.ZTable3.Locate('CODIGO', Edit1.Text,[loPartialKey,loCaseInsensitive]);
         valor := Edit1.Text;
         Valor1 := Valor;
         inc(valor1[length(Valor1)]);
         BDatos.ZTable3.Filter := 'CODIGO >= '+QuotedStr(Valor)+ ' and CODIGO < ' +QuotedStr(valor1);
         BDatos.ZTable3.Filtered := true;
          end;
end.

La pregunta es si se puede cambiar 'CODIGO' por el texto que seleccione en un ComboBox, ya que necesito buscar por mas de un criterio, si no se puede... existe otra manera de hacer lo que necesito??? de antemano muchisimas gracias...