anchor.diff:  	procedure Initialize(); Overload;
   	procedure Initialize(Exceptions: array of Integer); Overload;
   	
  -	procedure SetCurrentScene();
  +	//procedure SetCurrentScene();
     published
       property Count: Integer read GetCount;
   end;
  
positive.code:   end;
  end;
  
  end.
  
negative.code: TelSceneDirector = class(TelObject)
    private
      fList: TList;
      
      function GetCount(): Integer; {$IFDEF CAN_INLINE} inline; {$ENDIF}
    public
      constructor Create; Override;
  	destructor Destroy; Override;
  	
  	procedure Add(aScene: TelScene); {$IFDEF CAN_INLINE} inline; {$ENDIF}
  	
  