procedure TForm1.CheckBox1Click(Sender: TObject);
begin
　if CheckBox1.Checked then
　begin
　　//インデックスを削除
　　if ClientDataSet1.IndexName = 'Index1' then
　　ClientDataSet1.DeleteIndex('Index1');
　　//インデックスを作成
　　ClientDataSet1.AddIndex('Index1','COUNTRY;STATE',[]);
　　ClientDataSet1.IndexName := 'Index1'; //実行
　　//先頭行に位置付け
　　ClientDataSet1.First;
　end
　else
　begin
　　//インデックスを削除（デフォルトに戻す）
　　ClientDataSet1.DeleteIndex('Index1');
　end;
end;