procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
case Button of
mbLeft: ShowMessage('Botón izquierdo');
mbRight: ShowMessage('Botón derecho');
mbMiddle: ShowMessage('Botón central');
end;
end;