anchor.diff:  
     for i := i1 to i2 do
       for j := j1 to j2 do
  -      case gb.Board [i, j] of
  +      case gb.Board[i, j] of
           Black : Result := Result + iff(gb.IsWildcard(i, j), 'x', 'X');
           White : Result := Result + iff(gb.IsWildcard(i, j), 'o', 'O');
           else    Result := Result + iff(gb.IsWildcard(i, j), '*', '.');
  
positive.code:       begin
          n := 0;
          for i := 1 to Length(s) do
            if s [i] in ['O', 'X']
              then inc(n);
          Result := n
        end
  
negative.code:   try
      for i := 0 to fileList.Count - 1 do
        begin
          fn   := fileList[i];
          path := ExtractFilePath(fn);
          name := ExtractFileName(fn);
  
  