TClientDataSet的有关问题

TClientDataSet的问题
void __fastcall TSDIAppForm::ButtonPreViewClick(TObject *Sender)
{


 TClientDataSet *ADataSet = new TClientDataSet(this);
  ADataSet->FieldDefs->Add("Name", ftString, 30, false);
  ADataSet->FieldDefs->Add("Value", ftInteger, 0, false);

  ADataSet->CreateDataSet();
this->DataSource1->DataSet=ADataSet;
this->DBGrid1->DataSource=this->DataSource1;
 ADataSet->Append();
 ADataSet->FieldValues["Name"]="t1";
 ADataSet->FieldValues["Value"]=1;

  delete ADataSet;
}

上述代码是建立一张内存TABLE，因为ADataSet 是一个指针类型，所以后面需要使用DELETE删除，问题是如果一删除，
那么DBGrid1就没有任何数据了。这个表每次CLICK后都会生成不同的内容的，所以不能等程序退出后再清空。
我是想每次CLICK一次后，就生成一张内存表。再点一次，原来的被清空，再生成另外一张内存表。请问这个如何操作，谢谢？

[解决办法]
TClientDataSet *ADataSet 定义全局变量
做了个例子，你看着用吧

C/C++ code

头文件中private:    // User declarationsTClientDataSet *ADataSet;cpp文件#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------__fastcall TForm1::TForm1(TComponent* Owner)        : TForm(Owner){}//---------------------------------------void __fastcall TForm1::FormCreate(TObject *Sender){ *ADataSet = new TClientDataSet(this);  ADataSet->FieldDefs->Add("Name", ftString, 30, false);  ADataSet->FieldDefs->Add("Value", ftInteger, 0, false);  ADataSet->CreateDataSet();  DataSource1->DataSet=ADataSet;  DBGrid1->DataSource=this->DataSource1;}//---------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){  ADataSet->EmptyDataSet();//清空数据 ADataSet->Append(); ADataSet->FieldValues["Name"]="t1"; ADataSet->FieldValues["Value"]=1;        }//---------------------------------------void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action){  delete ADataSet;}
[解决办法]
探讨

麻烦帮我再解答一个问题
for (int i = 0; i <irow; i++) {

ShowMessage(((TStringGrid*)DBGrid1)->Cells[1][2]);
}

为什么这样调用会出错，但是如果我改为一下
ShowMessage(((TStringGrid*)DBGrid1)->Name);
这样调用就正常显示，是不是Cells这个地方写错了，麻烦……