TLMessage

type TLMessage = record

  Msg: Cardinal;

  UnusedMsg: Cardinal;

  case Integer of

    0: (

        WParam: LclType.WPARAM;

        LParam: LclType.LPARAM;

        Result: LclType.LRESULT;

      );

end;