Как узнать, какой из 3х кнопок мыши тыцнули?

procedure OnButtonClick(iButton: integer);
begin
case iButton of
0: ...;
1: ...;
end; 
end;

buttonid := RQ_CreateChatButton(@OnButtonClick, icon, caption);

// внутренний обработчик нажатия кнопки
procedure OnButton(AButton: Integer);
var
  curPos: TPoint;
begin
  GetCursorPos(curPos);
  case AButton of
    0: OnButtonLeft(AButton, curPos.X, curPos.Y);
    1: OnButtonRight(AButton, curPos.X, curPos.Y);
    2: OnButtonMiddle(AButton, curPos.X, curPos.Y);
  end;