[~TB~]

Нужна помощь. Мне нужно определить находиться ли курсор мыши на форме в Регионе типа TRect. Использую следующий код функции, но не работает он что-то:

Код:

function CursInReg(R: TRect): Boolean;
var
 CP: TPoint;
begin
GetCursorPos(CP);
if (CP.X>R.left)and(CP.X<R.Right)and(CP.Y>R.Top)and(CP.Y<R.Bottom) then Result:=True else Result:=False;
end;

Если кто-то с етим встречался, то плиз хелп!!!