anchor.diff:  
   procedure TApplicationForm.DoDestroyed;
   begin;
  +end;
  +
  +function TApplicationform.AutoDispose(AObject : TObject) : TObject;
  +begin
  +  Result := FDisposables.AddObject(AObject);
   end;
   
   procedure TApplicationForm.NotifyActivateFirstTime;
  
positive.code: interface
  
  uses
    Classes, SysUtils, Forms, Controls,ExtCtrls,  FGL, Graphics, Generics.Collections, Generics.Defaults, syncobjs;
  
  type
    TApplicationForm = class(TForm)
  
negative.code:       FActivateFirstTime : TNotifyEvent;
        FDestroyed : TNotifyEvent;
        FCloseAction : TCloseAction;
        FDisposables : TDisposables;
        procedure NotifyActivateFirstTime;
        procedure NotifyDestroyed;
      protected
  