[ryderx34]

Код:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

  if Button=mbLeft then
    ShowMessage('левая кнопка');

  if Button=mbRight then
    ShowMessage('правая кнопка');

  if Button=mbMiddle then
    ShowMessage('средняя кнопка');

end;