TLMessage

type TLMessage = record

  Msg: Cardinal;

  case Integer of

    0: (

        WParam: LclType.WPARAM;

        LParam: LclType.LPARAM;

        Result: LclType.LRESULT;

      );

    1: (

        WParamLo: Word;

        WParamHi: Word;

        LParamLo: Word;

        LParamHi: Word;

        ResultLo: Word;

        ResultHi: Word;

      );

end;