[rastafarey]

HAber si OnMouseDown Te sirve

Código Delphi [-]
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If Shift = [ssRight] Then
    Caption := 'si';
end;