如何不让模式窗口退出

[angus_w]

在主窗口打开了一个模式窗口填写一些必要的参数，在模式窗口的确定按钮的OnClick事件中对参加进行了检查，如果参数不符合要求还行留在模式窗口，而不是退出模式窗口，不知道改如何设置。
赋值ModalResult为mrNone不能实现，问问大家改怎么办。
小弟分不多，问题不少，只能一点点给了。大大们不要笑话寒酸啊。。。。

[玄之丞]

unit1.cpp
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->ShowModal();
}


unit2.cpp
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
if ( Form2->Edit1->Text!="fk" ) {
Action=false;
}
}

[angus_w]

scsjs(闪电回归)的方法可以用，不过编译的时候会产生一个[C++ Warning] Form2.cpp(63): W8018 Assigning bool to TCloseAction的警告