TFarListItemData = packed record Index: integer; DataSize: integer; Data: PChar; Reserved: DWORD; end; PFarListItemData = ^TFarListItemData;