application.terminate

cześć, mam takie dość lamerskie pytanie, otóż, mam prostą procedure:

procedure zamknij_program;
begin
if MessageDlg('Czy chcesz zamknąć program ?',mtInformation,[mbok,mbno],mryes)=1 then
   Application.Terminate
   else
   form1.show;
end;

i jak dam ją do przycisku i wywołam to działa ok., ale jeśli dam ją do zdarzenia OnClose formatki to przy wybraniu w okienku komunikatu przycisku NO (nie zamykaj programu a uwidocznij formatke) chowa sie program i go nie widać, jak to zrobić żeby działało oprawnie, tak jak np: dla przycisku zamknij. Jak dam do przycisku to działa gites. [???]

onclosequery:

CanClose := MessageDlg('Czy chcesz zamknąć program ?',mtInformation,[mbok,mbno],mryes)=1;

onclose:

if MessageDlg('Czy chcesz zamknąć program ?',mtInformation,[mbok,mbno],mryes)<>1 then Action := caNone;

dziękuwa :)