Тупая мышка

Чтобы ограничить перемещение курсора, давайте попробуем выполнить следующий код:

var
cr:TRect;
begin
cr:=Rect(0,0,10,10);
ClipCursor(@cr);
end;

Сначала даём переменной cr тип TRect. После мы создаём прямоугольную область 10 на 10 пикселей. А следущая строчка - диапазон движения мышки. Но давайте попробуем
усовершенствовать. Если вы попробуете ввести предыдущий код, то вы всё поймёте(чтобы мышка вышла из этого пространства 10 на 10, надо нажать левой кнопкой мышки). Но давйте этот код скинем в Timer. И всё будет выполняться.