//unit System

  TFileRec = packed record

    Handle: Integer;

    Mode: Word;

    Flags: Word;

    case Byte of

      0: (RecSize: Cardinal);   //  files of record

      1: (BufSize: Cardinal;    //  text files

          BufPos: Cardinal;

          BufEnd: Cardinal;

          BufPtr: PChar;

          OpenFunc: Pointer;

          InOutFunc: Pointer;

          FlushFunc: Pointer;

          CloseFunc: Pointer;

          UserData: array[1..32] of Byte;

          Name: array[0..259] of Char; );

  end;