如何限制鼠标区域（c++builder）

void  __fastcall TForm1::FormMouseMove(TObject  * Sender, TShiftState Shift,
       int  X,  int  Y)
... {
    TRect   rtForm;
    rtForm   =   Form1->ClientRect;
    MapWindowPoints(Handle,0,(LPPOINT)(&rtForm),2);
    ClipCursor(&rtForm);
}

添加这段代码到mousemove事件中，扩展开来可以做出屏幕锁。