TPropData = packed record
  PropCount: Word;
  PropList: record;
end;

struct TPropData {
  Word PropCount;
  record PropList;
};