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