anchor.diff:  function TmPivoter.GetRecords(const aVerticalKeys, aHorizontalKeys: TStringList): TCardinalList;
   var
     tmpHor, tmpVer : String;
  -  i : integer;
  -begin
  -  tmpHor := StringListToKey(aVerticalKeys);
  -  tmpVer := StringListToKey(aHorizontalKeys);
  +begin
  +  tmpHor := StringListToKey(aHorizontalKeys);
  +  tmpVer := StringListToKey(aVerticalKeys);
   
     Result := GetRecords(tmpVer, tmpHor);
   end;
  
positive.code:     // internal or test functions
      function GetRecords (const aVerticalKeys, aHorizontalKeys : TStringList): TCardinalList; overload;
      function GetRecords (const aVerticalKeys, aHorizontalKeys : string): TCardinalList; overload;
  //    function ComputeSummary (const aVerticalKeys, aHorizontalKeys : TStringList; const aSummaryDefinition : TmSummaryDefinition) : TmSummaryValue; overload;
  //    function ComputeSummary (const aVerticalKeys, aHorizontalKeys : String; const aSummaryDefinition : TmSummaryDefinition) : TmSummaryValue;
      class function BuildKey(const aOldKey, aNewKeyPartValue : String) : String;
      class function StringListToKey(const aKeys : TStringList): String;
  
  
negative.code:   Result := FRecordCoordinates.Find(aVerticalKeys + aHorizontalKeys) as TCardinalList;
  end;
  
  function TmPivoter.GetValue(const aVerticalKeys, aHorizontalKeys : TStringList; const aSummaryDefinition: TmSummaryDefinition): TmSummaryValue;
  var
    tmpHor, tmpVer : String;
  begin
    tmpHor := StringListToKey(aHorizontalKeys);
    tmpVer := StringListToKey(aVerticalKeys);
    Result := GetValue(tmpVer, tmpHor, aSummaryDefinition);
  end;
  
  function TmPivoter.GetValue(const aVerticalKeys, aHorizontalKeys: string; const aSummaryDefinition: TmSummaryDefinition): TmSummaryValue;
  var
    tmpValues : TmSummaryValues;
  begin
    Result := nil;
  
    tmpValues := FValues.Find(aVerticalKeys + aHorizontalKeys) as TmSummaryValues;
    if Assigned(tmpValues) then
      Result := tmpValues.FindByDefinition(aSummaryDefinition);
  end;
  
  class function TmPivoter.BuildKey(const aOldKey, aNewKeyPartValue: String): String;
  begin
  