XGrabButton

function XGrabButton(

  para1: PDisplay;

  para2: cuint;

  para3: cuint;

  para4: TWindow;

  para5: TBool;

  para6: cuint;

  para7: cint;

  para8: cint;

  para9: TWindow;

  para10: TCursor

):cint;