problema con if FileExist

[jonydread]

hola amigos tengo el sgte problema espero me ayuden
tengo este codigo

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
begin
if FileExists(OpenDialog1.FileName) then if MessageDlg('Realmente desea Cerrar aplicación?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
             close;
                 else close;
end;

me he estado enredando mucho lo que pasa que quiero que se muestre solo cuando le de cerrar y tenga un archivo abierto y cuando no haya nada abierto cierre nada mas y si hay alguna forma de funcionar con el form osea al cerrar la ventana de la esquina tambien muestre este mensaje

muchas gracias exelente foro!!