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