TMessage = packed record
    Msg: Cardinal;
    case Integer of
      0: (
        WParam: Longint;
        LParam: Longint;
        Result: Longint);
      1: (
        WParamLo: Word;
        WParamHi: Word;
        LParamLo: Word;
        LParamHi: Word;
        ResultLo: Word;
        ResultHi: Word);
  end;
 
 其中case of 语句的作用是类似于 C++ 中的公用体，即几个元素有不同的标示方式，但是占用
的空间是其中最大的元素，而不是全体元素的合。