diff --git a/Install/windows/Setup.iss b/Install/windows/Setup.iss
index b93cd8c..59e92cd 100644
--- a/Install/windows/Setup.iss
+++ b/Install/windows/Setup.iss
@@ -44,7 +44,7 @@ Source: "C:\Simba\Extensions\paster.sex"; DestDir: "{app}\Extensions"; Flags: ig
 Source: "C:\Simba\Extensions\CRov.sex"; DestDir: "{app}\Extensions"; Flags: ignoreversion
 Source: "C:\Simba\Extensions\Updater.sei"; DestDir: "{app}\Extensions"; Flags: ignoreversion
 Source: "C:\Simba\Includes\mml.simba"; DestDir: "{app}\Includes"; Flags: ignoreversion
-Source: "C:\Simba\settings.xml"; DestDir: "{app}\"; Flags: ignoreversion
+; Source: "C:\Simba\settings.xml"; DestDir: "{app}\"; Flags: ignoreversion
 ; XXX Make sure to use a MINIMAL settings.xml XXX
 
 ; Source: "C:\Simba\Fonts\*"; DestDir: "{app}\Fonts"; Flags: ignoreversion recursesubdirs createallsubdirs
diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index 0a828a2..4872c7a 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -62,7 +62,7 @@ uses
   settings, updater;
 
 const
-  SimbaVersion = 971;
+  SimbaVersion = 972;
 
   interp_PS = 0; //PascalScript
   interp_RT = 1; //RUTIS
diff --git a/Units/PascalScript/uPSC_controls.pas b/Units/PascalScript/uPSC_controls.pas
index b2c943d..c470380 100644
--- a/Units/PascalScript/uPSC_controls.pas
+++ b/Units/PascalScript/uPSC_controls.pas
@@ -114,6 +114,7 @@ begin
     RegisterProperty('BRUSH', 'TBRUSH', iptr);
     RegisterProperty('HELPCONTEXT', 'LONGINT', iptrw);
     {$ENDIF}
+    RegisterProperty('DoubleBuffered', 'Boolean', iptrw);
   end;
 end;
 procedure SIRegisterTGraphicControl(cl: TPSPascalCompiler); // requires TControl
diff --git a/Units/PascalScript/uPSR_controls.pas b/Units/PascalScript/uPSR_controls.pas
index c3974f0..5a6f433 100644
--- a/Units/PascalScript/uPSR_controls.pas
+++ b/Units/PascalScript/uPSR_controls.pas
@@ -114,6 +114,9 @@ procedure TWINCONTROLBRUSH_R(Self: TWINCONTROL; var T: TBRUSH); begin T := Self.
 procedure TWINCONTROLCONTROLS_R(Self: TWINCONTROL; var T: TCONTROL; t1: INTEGER); begin t := Self.CONTROLS[t1]; end;
 procedure TWINCONTROLCONTROLCOUNT_R(Self: TWINCONTROL; var T: INTEGER); begin t := Self.CONTROLCOUNT; end;
 
+procedure TWinControl_DoubleBuffered_R(Self: TWinControl; var T: Boolean); begin T := Self.DoubleBuffered; end;
+procedure TWinControl_DoubleBuffered_W(Self: TWinControl; T: Boolean); begin Self.DoubleBuffered := T; end;
+
 procedure RIRegisterTWinControl(Cl: TPSRuntimeClassImporter); // requires TControl
 begin
   with Cl.Add(TWinControl) do
@@ -148,6 +151,7 @@ begin
 		RegisterMethod(@TWINCONTROL.UPDATECONTROLSTATE, 'UPDATECONTROLSTATE');
     RegisterPropertyHelper(@TWINCONTROLBRUSH_R, nil, 'BRUSH');
     {$ENDIF}
+    RegisterPropertyHelper(@TWinControl_DoubleBuffered_R, @TWinControl_DoubleBuffered_W, 'DoubleBuffered');
   end;
 end;