//----------------------------------------------------------------------------//
void __fastcall TFormMemFree::BitBtn1Click(TObject *Sender)
{
  int iFreeSize=StrToIntDef(EditSize->Text,0);
  if(iFreeSize==0) return;      this->Caption="記憶體釋放中...";
  iFreeSize=iFreeSize * 1024 * 1024;    // 方法1：無效
// char *pBuffer=new char[iFreeSize];
// delete [] pBuffer;    // 方法2：有效，要真的去存取資料才會真的配置？！
  char *pBuffer=new char[iFreeSize];
  for(int i=0;iCaption="記憶體釋放中..." IntToStr((i>>10)*100/(iFreeSize>>10)) " %";
    Application->ProcessMessages();
  }
  delete [] pBuffer;
  this->Caption="記憶體釋完成!!";
}
//----------------------------------------------------------------------------//

char *pBuffer=new char[iFreeSize];

delete [] pBuffer;