如何让鼠标左键、右键单击同一个按钮产生不同效果

这不就是事件吗？

procedure TForm1.btn1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if mbLeft = Button then
ShowMessage('左键');
if mbRight = Button then
ShowMessage('右键键');
end;

不是智商问题，就是不看书的问题。
楼主自己选吧。