anchor.diff:        procedure DoClose(var CloseAction: TCloseAction); override;
         procedure DoDestroy; override;
         procedure DoDestroyed; virtual;
  +    public
  +      property ActivationCount : UInt32 read FActivatedCount;
  +      function AutoDispose(AObject : TObject) : TObject;
       published
         property CloseAction : TCloseAction read FCloseAction write FCloseAction;
         property OnActivateFirstTime : TNotifyEvent read FActivateFirstTime write FActivateFirstTime;
         property OnDestroyed : TNotifyEvent read FDestroyed write FDestroyed;
  -    public
  -      property ActivationCount : UInt32 read FActivatedCount;
  -      function AutoDispose(AObject : TObject) : TObject;
     end;
   
     { TWinControlHelper }
  
positive.code:     procedure SetImageListPicture(AImageList: TImageList; AIndex : SizeInt);
    end;
  
  implementation
  
  {%region TApplicationForm}
  
  
negative.code: uses
    Classes, SysUtils, Forms, Controls,ExtCtrls,
    FGL, Graphics, Generics.Collections, Generics.Defaults, syncobjs,
    UMemory, LMessages, UCommon;
  
  type
  
    { TApplicationForm }
  
    TApplicationForm = class(TForm)
      private
        FActivatedCount : UInt32;
  