anchor.diff:  
     FillChar(WinCond, SizeOf(WinCond), #0);
     FillChar(DefeatCond, SizeOf(WinCond), #0);
  -  FillChar(WinStat, SizeOf(WinCond), #0);
  -  FillChar(DefeatStat, SizeOf(WinCond), #0);
   
     PathToMaps := TStringList.Create;
     try
  
positive.code:   PathToMaps: TStringList;
    MapInfo: TKMapInfo;
    WinCond, DefeatCond: array [TGoalCondition] of Word;
    WinStat, DefeatStat: array [TGoalStatus] of Word;
    GC: TGoalCondition;
  begin
    ControlsEnable(False);
  
negative.code:           Inc(WinCond[MapInfo.GoalsVictory[J,K].Cond]);
          for K := 0 to MapInfo.GoalsSurviveCount[J] - 1 do
            Inc(DefeatCond[MapInfo.GoalsSurvive[J,K].Cond]);
        end;
      end;
  
      //Report results
      Memo1.Clear;
      Memo1.Lines.Append(IntToStr(PathToMaps.Count) + ' maps');
      Memo1.Lines.Append('Win / Def');
      for GC := Low(TGoalCondition) to High(TGoalCondition) do
        Memo1.Lines.Append(Format('%3d / %3d ' + GoalConditionStr[GC], [WinCond[GC], DefeatCond[GC]]));
    finally
  