У меня есть несколько классов (из TObject ) в Delphi XE7 (Firemonkey), у которых есть свойство AsJson : uses System.Classes, System.SysUtils, XSuperObject; type TMyObject = class(TObject) public property AsJson: ISuperObject read...