Delphi Json Array Adding Negative Integers