Type TRecord =
     Record
      X, Y, Z: uint32;
     End;

Type TClass =
     Class
      Public
       X, Y, Z: uint32;
      End;

Procedure Foo;
Var Rec: TRecord;
    Cls: TClass;
Begin
 Rec.X := 1;
 Rec.Y := 2;

 Cls.X := 1;
 Cls.Y := 2;
End;

Begin
 Foo();
End.