Kein Event bei PtInRect

[EWeiss]

Komme nicht in PtInRect rein wenn die Maus sich über den Button befindet.
Nur beim Klick wird es ausgelößt.
Woran kann das liegen ?

Delphi-Quellcode:

GetCursorPos(CurPos);
ScreenToClient(WinHandle, CurPos);
if PtInRect(rc, CurPos) then
begin
  if IsLButtonDown then
    if WinHandle = GetFocus then
      if (GetCursor = LoadCursor(0, IDC_ARROW)) and
        (StateMax > 1) then
        UseState := 2
      else
      if StateMax > 4 then
        UseState := 5;

end;

gruss Emil