작성 코드는 delphi에서 지원하는 delphi의 record type이며, 문법은 링크와 같습니다.
http://docwiki.embarcadero.com/RADStudio/XE5/en/Structured_Types#Records_.28traditional.29

record 타입이 destructor 가질 수 없는 것 또한 문법상의 제약 입니다.
http://docwiki.embarcadero.com/RADStudio/XE5/en/Structured_Types#Records_.28advanced.29

kivalan 님이 쓰신 글 :
:
: XE5 를 사용하는데요.
: 레코드 형이 아래처럼 된걸 무엇이라고 부르나요?
: TStopWatch 형을 예로 들었습니다.
: Create가 있구요.   즉 레코드 형인데 Create만 가지고 있는 건가요?
: Free는 필요가 없기 때문에 Destroy는 없는 건지요?
:
:
:
: type
:   TStopwatch = record
:   strict private
:     class var FFrequency: Int64;
:     class var FIsHighResolution: Boolean;
:     class var TickFrequency: Double;
:   strict private
:     FElapsed: Int64;
:     FRunning: Boolean;
:     FStartTimeStamp: Int64;
:     function GetElapsed: TTimeSpan;
:     function GetElapsedDateTimeTicks: Int64;
:     function GetElapsedMilliseconds: Int64;
:     function GetElapsedTicks: Int64;
:     class procedure InitStopwatchType; static;
:   public
:     class function Create: TStopwatch; static;
:     class function GetTimeStamp: Int64; static;
:     procedure Reset;
:     procedure Start;
:     class function StartNew: TStopwatch; static;
:     procedure Stop;
:     property Elapsed: TTimeSpan read GetElapsed;
:     property ElapsedMilliseconds: Int64 read GetElapsedMilliseconds;
:     property ElapsedTicks: Int64 read GetElapsedTicks;
:     class property Frequency: Int64 read FFrequency;
:     class property IsHighResolution: Boolean read FIsHighResolution;
:     property IsRunning: Boolean read FRunning;
:   end;
: