TLMMouse

type TLMMouse = record

  Msg: Cardinal;

  Keys: PtrInt;

  case Integer of

    0: (

        XPos: SmallInt;

        YPos: SmallInt;

      );

    1: (

        Pos: TSmallPoint;

      );

    2: (

        Dummy: LPARAM;

        Result: LRESULT;

      );

end;