求一段能够按着鼠标右键不动的代码(delphi的)!!

//以下为禁止鼠标右键的代码，不想禁止的可以删除
<!--

if (window.Event)
document.captureEvents(Event.MOUSEUP);

function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;

return false;
}

function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
{if (event.button == 2 || event.button == 3) {alert("【E路极速】欢迎你"); } }
{
event.cancelBubble = true
event.returnValue = false;
return false;
}

}

document.oncontextmenu = nocontextmenu; // for IE5+
document.onmousedown = norightclick; // for all others
//-->
</scrīpt>

不响应BTNCLICK事件，不就屏蔽了嘛~~~~~~
控件内部的屏蔽要结合WINDOWS API来开发的，我现在没有，家里到是有一段屏蔽的代码