records inheritance/nesting for fpc

snToponym = record
  ID : api_int;
  Name : api_str;
end;

snBaseUser = record
  ID         : api_int;
  Domain     : api_str;
  FirstName  : api_str;
  LastName   : api_str;
  Nickname   : api_str;
end;

snUserInfo = record
  Gender     : ( U_NKNOWN, U_FEMALE, U_MALE );
  BirthDate  : api_str;
  Age        : api_int;
  Country    : snToponym;
  City       : snToponym;
end;

snFriend = record( snBaseUser, snUserInfo )
  Best     : api_bool;
  Family   : api_bool;
  Coworker : api_bool;
  bySchool : api_bool;
  byUniver : api_bool;
end;