帮忙看这段代码？

[gao_hui]

void __fastcall TForm1::Button5Click(TObject *Sender)
{
if(SaveDialog1->Execute())
{
Variant Ex,Wb,Sh;
AnsiString t;
char c = 0x9;
Ex = Variant::CreateObject("Excel.Application");
Ex.OlePropertyGet("Workbooks").OleFunction("Add");
Wb = Ex.OlePropertyGet("ActiveWorkbook");
Sh = Wb.OlePropertyGet("Worksheets",1);
TStringList* SL = new TStringList();
t = "";
for(int i=0; i<DBGrid1->Columns->Count; i++)
{
t += DBGrid1->Columns->Items[i]->Title->Caption.c_str();
t += c;
}
SL->Add(t);
DBGrid1->DataSource = NULL;
ADOTable1->First();
for(int i=0; i<ADOTable1->RecordCount; i++)
{
for(int j=0; j<DBGrid1->Columns->Count; j++)
{
t += ADOTable1->Fields->FieldByName(DBGrid1->Columns->Items[j]->FieldName)->AsString;
t += c;
}
SL->Add(t);
ADOTable1->Next();
}
TClipboard* cp = new TClipboard();
cp->AsText = SL->Text;
Sh.OleProcedure("Paste");
cp->Clear();
delete SL;
delete cp;
Wb.OleProcedure("SaveAs",SaveDialog1->FileName.c_str());
Wb.OleProcedure("Close");
DBGrid1->DataSource = DataSource1;
}

为什么我执行后内存由300多M长到590多M，？？？？？然后就内存不足了。。

[MEFULEU]

嘿嘿，增加你的虚拟内存或者物理内存吧,ole就是费内存