TEditorSelect = packed record BlockType: integer; BlockStartLine: integer; BlockStartPos: integer; BlockWidth: integer; BlockHeight: integer; end; PEditorSelect = ^TEditorSelect;