TCmdLineSelect = packed record SelStart: integer; SelEnd: integer; end; PEditorSelect = ^TCmdLineSelect;