[Страдалецъ]

Оставим новые фичи 10-ки в покое, это явно не ваш случай. Вам нужно видимо такое:

Код:

Type
 TMyRec = record
   FN,MN,LN: String;
 end;

 TMyCalss = class
  MyRec: TMyRec;
 end;

Var
 MR: TMyRec;
 MC: TMyClass;