anchor.diff:  end;
   
   
  -function TKMRunnerCachePerformanceTest.TKMRDeliveryBidKey.GetHashCode: Integer;
  +function TKMRunnerCachePerformance.TKMRDeliveryBidKey.GetHashCode: Integer;
   var
   //  a,b,c,d,xTotal,yTotal: Integer;
   //  totalCard: Cardinal;
  
positive.code:   {$Q+}
  {$ENDIF}
  
  function TKMRunnerCachePerformanceTest.TKMRDeliveryBidKey.Compare(aOther: TKMRDeliveryBidKey): Integer;
  begin
  //  Result := GetHashCode - aOther.GetHashCode;
    if FromP = aOther.FromP then
  
negative.code:     procedure Execute(aRun: Integer); override;
    end;
  
    TKMRunnerCachePerformance = class(TKMRunnerCommon)
    type
      TKMRDeliveryBidKey = record
        FromP: TKMPoint; //House or Unit UID From where delivery path goes
  