TgpInput

type TgpInput = record

  MethodID: LongWord;

  gpi_GInfo: PGadgetInfo;

  gpi_IEvent: PInputEvent;

  gpi_Termination: PLongInt;

  gpi_Mouse: record

    x: SmallInt;

    y: SmallInt;

  end;

  gpi_TabletData: PTabletData;

end;