TJSON.Format -> TJSONAncestor.Format umbauen, aber wie?

[Uwe Raabe]

Delphi-Quellcode:

procedure TTSEStatus.RESTRequestAfterExecute(const Sender: TCustomRESTRequest);
var
  Obj : TJSONValue;
begin
  Obj := TJSONObject.ParseJSONValue(Sender.Response.Content);
  if Assigned(Obj) then
    try
      Log.Send(LevelBlue, cCategory, 'RequestType1: ' + Obj.Format);
    finally
      Obj.Free;
    end;
end;