Dificuldade para fechar formulario

[Reinaldodm 0]

Dificuldade para fechar form.

Sou novo nesse fantástico mundo da programação, estou usando o Delphi 2010, mas estou enfrentando alguns problemas, um deles é quando programo um botão para fechar um determinado form, coloco o comando para fechar (close;)para um determinado botão e no evento Formclose do formulário digito o seguinte:

 

begin

if application.MessageBox ('Deseja Realmente Sair?','Sair do Sistema', Mb_YesNo+MB_iconQuestion) <> IdYes then

application.Run;

end;

 

Mas em tempo de execução, quando se pede para fechar, ao clicar no botão ‘’Não’’ da tela de confirmação de fechamento, o programa continua rodando, até ai tudo bem, mas se pedir para fechar novamente o programa, mensagem alguma e mostrada e não se consegue fechar o mesmo.

Alguém poderia me dar uma luz...

Desde já agradeço a ajuda.

[Daniel Sanches 0]

coloque este código no evendo ONClose do form:

 

        if MessageDlg('Deseja realmente sair do sistema ?',mtConfirmation,[mbYes,mbNo],0) <> 6 then
                Action:= caNone;

[Raficcha 1]

ou tente assim:

application.MessageBox ('Deseja Realmente Sair?','Sair do Sistema', Mb_YesNo+MB_iconQuestion) <> mrYes