Das Problem ist behoben.
Es war ein nicht freigegebenes JSON Objekt bei der Objektserialisierung.
Für die anderen, die auch in diese Verlegenheit kommen:
Code:
var
jo: System.Json.TJsonObject;
begin
try
jo := rest.Json.TJson.ObjectToJsonObject(aObject);
Result := jo.Format(DEF_JSON_INDENT);
finally
freeandnil(jo);
end;
end;
Hier hatte ich vergessen das TJsonObject freizugeben
d.h. der Fehler war nicht bei Delphi zu suchen, sondern 40cm vor dem Bildschirm.