anchor.diff:    end;
   end;
   
  +
  +constructor TelSceneDirector.Create();
  +begin
  +  inherited;
  +  
  +  fList := TList.Create;
  +end;
  +
  +destructor TelSceneDirector.Destroy();
  +begin
  +  inherited;
  +end;
  +
  +function TelSceneDirector.GetCount(): Integer;
  +begin
  +  Result := fList.Count;
  +end;
  +
  +procedure TelSceneDirector.Add(aScene: TelScene);
  +begin
  +  fList.Add(aScene);
  +end;
  +	
  +procedure TelSceneDirector.Initialize();
  +var
  +  i: Integer;
  +begin
  +  for i := 0 to fList.Count - 1 do
  +    TelScene(fList.Items[i]).Initialize();
  +end;
  +
  +procedure TelSceneDirector.Initialize(Exceptions: array of Integer);
  +begin
  +  // TODO: Figure that one out ;)
  +end;
  +
   end.
  
positive.code: 	procedure Initialize(); Overload;
  	procedure Initialize(Exceptions: array of Integer); Overload;
  	
  	procedure SetCurrentScene();
    published
      property Count: Integer read GetCount;
  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}
  	
  