[[enecumene]]

Hola, no amigo no es necesario un TQuery por cada búsqueda, con uno basta ejemplo:

Código Delphi [-]
if ComboBox1.Text = 'Codigo' then
  begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Text := 'select * from tabla where codigo = '12345'';
     Query1.Open;
  end;
if ComboBox1.Text = 'Nombre' then
  begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Text := 'select * from tabla where Nombre = 'Pedro'';
     Query1.Open;
  end;
if ComboBox1.Text = 'Producto' then
  begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Text := 'select * from tabla where producto = 'Jabon'';
     Query1.Open;
  end;

en este ejemplo estoy usando un sólo Query.

Saludos.