anchor.diff:  
   procedure TApplicationForm.DoDestroyed;
   begin;
  +end;
  +
  +function TApplicationform.AutoDispose(AObject : TObject) : TObject;
  +begin
  +  Result := FDisposables.AddObject(AObject);
   end;
   
   procedure TApplicationForm.NotifyActivateFirstTime;
  
positive.code:       property OnDestroyed : TNotifyEvent read FDestroyed write FDestroyed;
      public
        property ActivationCount : UInt32 read FActivatedCount;
    end;
  
    { TWinControlHelper }
  
negative.code: interface
  
  uses
    Classes, SysUtils, Forms, Controls,ExtCtrls,
    FGL, Graphics, Generics.Collections, Generics.Defaults, syncobjs,
    UMemory;
  
  type
    TApplicationForm = class(TForm)
  