[console] avoid error running under IIS as plataformhandler

Quick.Console.pas

@@ -294,7 +294,9 @@ begin
           etTrace : TextColor(ccLightMagenta);
           else TextColor(ccWhite);
         end;
+        {$I-}
         Writeln(cMsg{$IFDEF LINUX} +#13{$ENDIF});
+        {$I+}
         TextColor(LastMode);
       end;
     finally
@@ -313,7 +315,9 @@ begin
     {$ENDIF}
     begin
       TextColor(cColor);
+      {$I-}
       Writeln(cMsg{$IFDEF LINUX} +#13{$ENDIF});
+      {$I+}
       TextColor(LastMode);
     end;
   finally
@@ -904,7 +908,6 @@ end;
   //Rewrite(stderr);
 {$ENDIF}
 
-
 { TConsoleMenu }
 
 {$IFDEF MSWINDOWS}