uses sysutils, Classes;
type
  Chest = class
    nr: Integer;
  end;

var
  test:Chest;

begin
     test := Chest.Create;
     test.nr := 3;
     print(test.nr);
end.