DEAR

最近在學習在產生對話框，查詢了一下網路上的相關資源，發線下方網址
http://blog.csdn.net/realbay/article/details/43268031

在參考使用其中的一段CODE
在OK的部分可以正常執行，但在Cancel會莫名crash
請問一下版上的大大，這是哪邊出了問題

下方是我的CODE
在麻煩各位大大指教
==============

class TMyDialogProc3 : public TCppInterfacedObject {
private:
TForm *FForm;

public:
__fastcall TMyDialogProc3(TForm * AForm) : FForm(AForm) {
}

void __fastcall Invoke(const System::Uitypes::TModalResult AResult, const System::UnicodeString AValue) {

if (AResult == mrOk) {
ShowMessage(UnicodeString(AValue));
}

else if (AResult == mrCancel) {
ShowMessage(L"取消");
}

}
};

void __fastcall TForm1::Button1Click(TObject *Sender) {
_di_TInputCloseBoxProc ADialogProc3 = new TMyDialogProc3(this);

InputBox(L"輸入", L"輸入文字：", L"默認文字", ADialogProc3);
}