Optimizar el sgte codigo

[[eduarcol]]

casualmente tengo un codigo como eso:

1.- Cargo los datos en un combo box
2.- Al ejecutar la busqueda leo el campo desde ese combo y lo concateno en la consulta

1.-

Código Delphi [-]
//Carga un combo box con los campos disponibles
procedure TBusquedas.CargarLista;
var
   nIdx: integer;
begin
   cbCampos.Items.Clear;
   for nIdx := 0 to sqBusqueda.FieldCount - 1 do
      cbCampos.Items.Add(sqBusqueda.Fields[nIdx].FieldName);
   cbCampos.Text := sqBusqueda.Fields[0].FieldName;
end;

2.-

Al hacer click en el boton Establece el filtro de la tabla

Código Delphi [-]
   if txValor.Text = '' then
   begin
      sqBusqueda.Active := False;
      sqBusqueda.SQL.Clear;
      sqBusqueda.SQL.Add(Original);
      sqBusqueda.Active := True;
   end
   else
   begin
      sqBusqueda.Active := False;
      sqBusqueda.SQL.Clear;
      sqBusqueda.SQL.Add(Original);
      sqBusqueda.SQL.Add(' where ' + cbCampos.Text + ' Like ''%' + txValor.Text + '%''');
      sqBusqueda.SQL.Add(' order by ' + cbCampos.Text);
      sqBusqueda.Active := True;
   end;

Si no entendi mal esto es lo que buscas