ScaleForCurrentDPI only in Delphi 10.1 Berlin

Author: digao-dalpiaz

Source/Vcl.DamDialog.pas

@@ -166,7 +166,7 @@ function RunDamDialog(DamMsg: TDamMsg; const aText: string): TDamMsgRes;
     F.BuildButtons;
 
     F.SetIcon;
-    {$IFDEF USE_DPICHANGE}
+    {$IF Defined(VCL) and Defined(DCC) and (CompilerVersion >= 31)} //Delphi 10.1 Berlin
     F.ScaleForCurrentDPI;
     {$ENDIF}
     F.CalcFormBounds;