Du kannst es ja auch mal als ISO8601 String probieren:
Delphi-Quellcode:
...
Data: string; // als ISO8601
...
var span: TTimespan.Subtract.( tock, tick );
myJson.Data := Format('P%dDT%dH%dM%1.fS', [span.Days, span.Hours, span.Minutes, span.Seconds + span.Milliseconds/1000]);