* Added SetWriting()

packages/rtl/classes.pas

@@ -555,6 +555,7 @@ type
     function GetOwner: TPersistent; override;
     procedure Loaded; virtual;
     procedure Loading; virtual;
+    procedure SetWriting(Value: Boolean); virtual;
     procedure Notification(AComponent: TComponent;  Operation: TOperation); virtual;
     procedure PaletteCreated; virtual;
     procedure SetAncestor(Value: Boolean);
@@ -3377,6 +3378,14 @@ begin
   Include(FComponentState,csLoading);
 end;
 
+procedure TComponent.SetWriting(Value: Boolean);
+begin
+  If Value then
+    Include(FComponentState,csWriting)
+  else
+    Exclude(FComponentState,csWriting);
+end;
+
 
 Procedure TComponent.Notification(AComponent: TComponent;
   Operation: TOperation);