var MyRect: TRect; begin MyRect := Rect(0, 0, 100, 100); ClipCursor(@MyRect); end;
begin Clipcursor(nil); end;