MessageBox или как возвратить назад форму при отмене?

[Deface87]

Доброго времени суток!
Есть типовая команда
if MessageBox(0,PChar('Выйти из программы?'),PChar('Вы уверены, что хотите выйти из программы?'),MB_ICONQUESTION+MB_OKC ANCEL+MB_DEFBUTTON2) = IDOK then Application.Terminate

которая спрашивая пользователя хочет он или не хочет выйти,
вопрос заключается в том что при использовании этого кода в главной форме у меня все работает, а если в другой форме
при нажатии на Cancel форма с сообщением исчезает и форма которая сообщение вызывала тоже исчезает!!! при использовании кода в главной форме, такого не происходит...
Подскажите, что можно сделать? Кто может сталкивался с такой ситуацией?

[Terran]

У меня всё работает. Ничего не исчезает. Проверьте код программы.
На крайний случай:

if MessageBox(0,PChar('Выйти из программы?'),
PChar('Вы уверены, что хотите выйти из программы?'),
MB_ICONQUESTION+MB_OKCANCEL+MB_DEFBUTTON2) = IDOK then
Application.Terminate
Else
Form2.Show;

[Deface87]

Сообщение от Terran

У меня всё работает. Ничего не исчезает. Проверьте код программы.
На крайний случай:

if MessageBox(0,PChar('Выйти из программы?'),
PChar('Вы уверены, что хотите выйти из программы?'),
MB_ICONQUESTION+MB_OKCANCEL+MB_DEFBUTTON2) = IDOK then
Application.Terminate
Else
Form2.Show;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageBox(0,PChar('Выйти из программы?'),PChar('Вы уверены, что хотите выйти из программы?'),MB_ICONQUESTION+MB_OKC ANCEL+MB_DEFBUTTON2) = IDOK then
begin Dwrite; Application.Terminate; end else Form6.Show;
end;
Не идет, тоже самое

[Terran]

C учётом того, что Вы используйте обработчик события FormClose, Вы можете сделать так:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageBox(0,PChar('Выйти из программы?'),
PChar('Вы уверены, что хотите выйти из программы?'),
MB_ICONQUESTION+MB_OKCANCEL+MB_DEFBUTTON2) = IDOK then
begin
Application.Terminate; end
else
Action:=CaNone;
end;

[Deface87]

Спасибо, работает