anchor.diff:      procedure SetImageListPicture(AImageList: TImageList; AIndex : SizeInt);
     end;
   
  +
  +
   implementation
  +
  +uses LCLIntf;
   
   {%region TApplicationForm}
   
  
positive.code: uses
    Classes, SysUtils, Forms, Controls,ExtCtrls,
    FGL, Graphics, Generics.Collections, Generics.Defaults, syncobjs,
    UMemory;
  
  type
    TApplicationForm = class(TForm)
      private
        FActivatedCount : UInt32;
  
negative.code: 
  {%endregion}
  
  end.
  