Suponiendo que ya hayas creado los índices correspondientes, podrías tener una sola caja y un RadioButton que diga:
0 ordenar por Código
0 ordenar por descripción.
Al pulsar en el RadioButton
Código Delphi
[-]Case Radiobutton.ItemIndex of
0:Table1.IndexName:='Codigo';
1:Table1.IndexName:='Descripcion';
end;
Un Saludo.