[options] some fixes

Author: exilon

Quick.Options.pas

@@ -77,7 +77,9 @@   TOptionsBase = class(TInterfacedObject)
   end;
 
   {$IFDEF DELPHIRX102_UP}
+  {$M+}
   TOptions = class;
+  {$M-}
 
   TConfigureOptionsProc<T : TOptions> = reference to procedure(aOptions : T);
   {$ELSE}
@@ -89,6 +91,7 @@   TOptions = class;
     procedure ValidateOptions;
   end;
 
+  {$M+}
   TOptions = class(TInterfacedObject,IOptionsValidator)
   private
     fName : string;
@@ -106,6 +109,7 @@   TOptions = class(TInterfacedObject,IOptionsValidator)
     {$ENDIF}
     procedure ValidateOptions;
   end;
+  {$M-}
 
   TOptionsValidator = class(TInterfacedObject,IOptionsValidator)
   private