TFarDialogItem

  TFarPtr = packed record
    PtrFlags: DWORD;
    PtrLength: integer;
    PtrData: PChar;
    PtrTail: array[0..0] of char;
  end;

TFarDialogItem = packed record
  ItemType: integer;
  X1: integer;
  Y1: integer;
  X2: integer;
  Y2: integer;
  Focus: integer;
  case integer of
    0: (History: PChar);
    1: (Mask: PChar);
    2: (ListItems: PFarListItemArr);
    3: (VBuf: PCharInfo);
    4: (Selected: integer;
        Flags: DWORD;
        DefaultButton: integer;
        case integer of
          0: (Data: packed array[0..511] of char);
          1: (Ptr: TFarPtr)
       );
end;
PFarDialogItem = ^TFarDialogItem;