anchor.diff:      'TKMHandIndex', 'TKMHouse', 'TKMUnit', 'TKMUnitGroup',
       'TKMHouseType', 'TKMWareType', 'TKMFieldType', 'TKMUnitType',
       'THouseType', 'TWareType', 'TFieldType', 'TUnitType',
  -    'array of const', 'array of Integer'
  +    'array of const', 'Array of const', 'Array of Const',
  +    'array of Integer', 'Array of Integer'
     );
   
   var
  
positive.code:       end;
      end;
  
      for i := 0 to Length(paramHolder) - 1 do
      begin
        resultStr := resultStr + IntToStr(i + 1) + ' - ' + paramHolder[i].Name + ': ' + typeList[paramHolder[i].varType] + ';';
  
negative.code:     FreeAndNil(paramList);
      FreeAndNil(convertList);
      FreeAndNil(typeList);
      FreeAndNil(splitList);
    end;
  end;
  
  