TClientDataSet's Addindex

UnitUnit2;Interfaceusessysutils, Classes, DB, dbclient;typeTDataModule2=class(tdatamodule) Clientdataset1:tclientdataset;    Datasource1:tdatasource; proceduredatamodulecreate (Sender:tobject); Private    {Private Declarations}   Public    {Public Declarations}  End;varDatamodule2:tdatamodule2;ImplementationusesDialogs;{$R *.DFM}proceduretdatamodule2.datamodulecreate (sender:tobject);begin   withDatamodule2.clientdataset1 Do  beginFileName:='Test.cds';  withTstringfield.create (DATAMODULE2.CLIENTDATASET1) Do    beginFieldName:='Test'; Name:='clientdataset1test'; DataSet:=Datamodule2.clientdataset1; End;    CreateDataSet;  withIndexdefs.addindexdef Do //or at design time    beginName:='indextest'; Fields:='Test'; Options:=[ixdescending]; End;//addindex (' indextest ', ' test ', []);

---------------------------
Project1
---------------------------
Clientdataset1:index ' indextest ' Not found.
---------------------------
Determines
---------------------------

    ' indextest ' ;     if FileExists ('test.cds'then      loadfromfile ('  Test.cds')  end; End ; End.

UnitUnit1;InterfaceusesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls, DB, Dbclient, Grids, Dbgrids;typeTForm1=class(tform) Button1:tbutton;    Dbgrid1:tdbgrid; procedureButton1Click (Sender:tobject); Private    {Private Declarations}   Public    {Public Declarations}  End;varForm1:tform1;ImplementationusesUnit2;{$R *.DFM}procedureTform1.button1click (sender:tobject);begin   withDatamodule2.clientdataset1 Do  beginAppend; Fieldbyname ('Test'). Asstring: ='test1';  Post; End;End;End.

 ProgramProject1;usesForms, Unit1inch 'Unit1.pas' {Form1}, Unit2inch 'Unit2.pas' {Datamodule2:tdatamodule};{$R *.res}beginapplication.initialize; Application.mainformontaskbar:=True;  Application.createform (TDataModule2, DataModule2);  Application.createform (TForm1, Form1); Application.Run;End.

TClientDataSet's Addindex