anchor.diff:              N.Estim := EstimateToFinish(X,Y);
               fHeap.Push(N);
             end
  -          else //If cell doen't meets Passability then mark it as Closed
  +          else //If cell doesn't meets Passability then mark it as Closed
               N.Estim := c_closed;
  -
           end;
         end
         else //Else cell is old
         begin
  -
           //Node N is valid. If route through new cell is shorter than previous
           if N.Estim <> c_closed then
           if CanWalkTo(KMPoint(fMinN.X, fMinN.Y), X, Y) then
  
positive.code: 
  
  type
    TANodeRec = record
                  RouteID: Cardinal;
                  X,Y: SmallInt;
                  CostTo: Word;
                  Estim: Word;
                  Parent: Pointer; //PANodeRec
                end;
    PANodeRec = ^TANodeRec;
  
    //This is a helper class for TTerrain
    //Here should be pathfinding and all associated stuff
  
negative.code:       fOpenRef[Y, X].X := X;
        fOpenRef[Y, X].Y := Y;
      end;
  end;
  
  
  