TFarListDelete = packed record StartIndex: integer; Count: integer; end; PFarListDelete = ^TFarListDelete;