TFarListUpdate = packed record Index: integer; Item: TFarListItem; end; PFarListUpdate = ^TFarListUpdate;