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