VCL的小问题

Question

TCMMouseWheel = record
    Msg: Cardinal;
    ShiftState: TShiftState;
    Unused: Byte;
    WheelDelta: SmallInt;
    case Integer of
      0: (
        XPos: Smallint;
        YPos: Smallint);
      1: (
        Pos: TSmallPoint;
        Result: Longint);
  end;case Integer of 这个Integer是哪里来的啊？真有点不明白

Answer 1

unit System;{ Predefined constants, types, procedures, }
             { and functions (such as True, Integer, or }
             { Writeln) do not have actual declarations.}
             { Instead they are built into the compiler }//here
             { and are treated as if they were declared }
             { at the beginning of the System unit.     }