[DOS]

Bueno ya lo solucione, lo hice como aconsejaba caral, con un combobox, lo que no sabia era que tenia que definir a los campos como clave secundaria para que los pueda ordenar. Gracias.

Código Delphi [-]
procedure TForm13.Button2Click(Sender: TObject);
begin
if combobox1.Text = 'Nombre' then
  begin
  table1.IndexName:='nombrefk';
  end;
if combobox1.Text = 'Codigo' then
  begin
  table1.IndexName:='codigofk';
  end;
if combobox1.Text = 'Imp. Venta' then
  begin
  table1.IndexName:='impventfk';
  end;
end;