procedure TForm1.Button3Click(Sender: TObject);
begin
  if tbStd.IndexName = 'G_Num' then
    tbStd.IndexName := 'ind_sort'
  else
    tbStd.IndexName := 'G_Num';
end;