вывод сообщении только на правой кнопки мыши!

[KWN, lnc]

скажем так... у меня кнопка Button1 я хочу чтоб при нажатии [/b]только[/b] правой кнопки мыши выхожило сообщение скажем ShowMessage('жмахнул, ащ торкнуло'); как это сделать???

[KORN]

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=MBRIGHT then
  ShowMessage('жмахнул, ащ торкнуло');
end;