Source position: versionresource.pp line 33
type TVerBlockHeader = packed record
length: Word;
vallength: Word;
valtype: Word;
key: string;
end;