anchor.diff:  var
     I: Integer;
   begin
  -  for I := 0 to Count - 1 do
  +  for I := 0 to Count() - 1 do
       with FQuest[I] do
       begin
         // Killing monsters
  
positive.code: 
  { TQuests }
  
  function TQuests.GetName(const QuestEnum: TQuestEnum): string;
  begin
    Result := 'Kill bears';
  end;
  
negative.code:     function GetQuest(I: Integer): TQuest;
      procedure SetQuest(I: Integer; const Value: TQuest);
    public
      procedure Clear();
      constructor Create();
      function Count(): Integer;
      procedure Add(const AQuestEnum: TQuestEnum);
      property Quest[I: Integer]: TQuest read GetQuest write SetQuest;
      procedure DoQuest(const AQuestType: TQuestType; const Value: Integer);
      property Current: TQuestEnum read FCurrent write FCurrent;
      function GetName(const AQuestEnum: TQuestEnum): string;
    end;
  
  var
  