diff --git a/Demos/AdMob/Unit1.pas b/Demos/AdMob/Unit1.pas index 488a4839..8fe82ef8 100644 --- a/Demos/AdMob/Unit1.pas +++ b/Demos/AdMob/Unit1.pas @@ -95,8 +95,13 @@ constructor TForm1.Create(AOwner: TComponent); procedure TForm1.ConsentButtonClick(Sender: TObject); begin - // Use RequestConsent(False) if you need to opt out of UMP + // Use RequestConsent(True) if you need to OPT OUT out of UMP + {$IF CompilerVersion > 35} AdMob.RequestConsent; + {$ELSE} + // UMP not supported on Delphi 11 + AdMob.RequestConsent(True); + {$ENDIF} // **** NOTE: Ads will not start until RequestConsent has been called **** end;