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
[-]
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