procedure TForm1.btnCreateIndexClick(Sender: TObject);
var
  s,desc,nocase: String;
  Options: TIndexOptions;
begin
  Table.Close;
  try
    if rbQuery.Checked then
     begin
      s := 'create ';
      if cbUnique.Checked then s := s + ' unique ';
      s := s + ' index ' + eIndexName.Text + ' on friends (name ';
      if not cbAsc.Checked then s := s + ' desc ';
      if not cbCase.Checked then
        s := s + ' case'
      else
        s := s + ' nocase';
      s := s + ')';
      mSQL.Text := s;
      Query.SQL.Text := s;
      Query.ExecSQL;
     end
    else
     begin
      Options := [];
      if cbUnique.Checked then Options := [ixUnique];
      desc := '';
      nocase := '';
      if not cbAsc.Checked then desc := 'name';
      if not cbCase.Checked then nocase := 'name';
      Table.RestructureIndexDefs.Add(eIndexName.Text, 'name', Options, false, desc, nocase);
      Table.RestructureTable;
     end;
  finally
    Table.Open;
  end;
  UpdateIndexList;
end;