[marcoszorrilla]

Aquí tienes un ejemplo:

Código Delphi [-]

procedure TfrConClientes.CbIndexChange(Sender: TObject);
begin
  Case CbIndex.ItemIndex of
    0: DmLux.Cli.IndexName:='';     
      
    1: DmLux.Cli.IndexName:='Busquedas';     
      
    2: DmLux.Cli.IndexName:='Nombres';      
      
    3: DmLux.Cli.IndexName:='Poblaciones';     
      
  end;
end;

Un Saludo.