Перебор всех переменных и массивов объекта

[Tip.the.besT]

Имеем такой объект:

type
type
  TTreaty = class
    City : string;
    Date : string;
    Members : array of Tmember;
    Objs    : array of TObj;
    Orders  : array of TOrder;

Решил написать сохранение, но уже сейчас понимаю, что переменные могут добавлять, по сему не хочется использовать обращение по имени. Хотелось бы просто перебрать все переменные, получить их имена и записать например в json. В массивах хранятся объекты-record с переменными. Подскажите куда копать.

[ForenLi]

гугл - delphi serializing