TFarListFind = packed record StartIndex: integer; Pattern: PChar; Flags: DWORD; Reserved: DWORD; end; PFarListFind = ^TFarListFind;