TViewerSelect = packed record BlockStartPos : TFarInt64; BlockLen : Integer; end; PViewerSelect = ^TViewerSelect;