tgpInput

type tgpInput = record

  MethodID: ULONG;

  gpi_GInfo: pGadgetInfo;

  gpi_IEvent: pInputEvent;

  gpi_Termination: Pointer;

  gpi_Mouse: record

    x: SmallInt;

    y: SmallInt;

  end;

  gpi_TabletData: pTabletData;

end;