Mensagem onclosequery android delphi xe7

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

  CanClose := False;

  MessageDlg('Deseja realmente fechar a aplicação desenvolvida no Delphi XE7?',

    System.UITypes.TMsgDlgType.mtInformation,

    [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,

    procedure(const BotaoPressionado: TModalResult)

      begin

        case BotaoPressionado of

          mrYes: begin

              SharedActivity.Finish;

            end;

          mrNo: begin

              ShowMessage('Você respondeu não');

            end;

        end;

      end

    );

end;