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