Честно подсмотрено.
На сколько прекрасно, на столько и отвратительно. Но восхищает однозначно хотя бы тем, что это вообще работает. Если что, то NextLabel это ссылка на следующию записью.THeader = record x,y,z: TMyRecordField; NextLabel: packed record end; end;