Delphi Json Array Get Last Item