Delphi Json Array Adding Negative Numbers