어떤 작업을 시작해서 끝날 때 까지 커서모양을 모래시계모양으로
바꿀려고 합니다.
메서드의 시작부분에 Screen.Cursor := crHourGlass; 라고
써주었는데

procedure TForm.test();
begin
    Screen.Cursor := crHourGlass;
end;

이렇게 하면 모래시계가 잘 나옵니다.
근데 메서드안에서 다른 메서드를 호출하면 커서모양이 금세 화살표
모양으로 바뀝니다.

procedure TForm.test();
begin
    Screen.Cursor := crHourGlass;
    test1();    <-   다른 메서드 호출시 커서모양이 화살표 모양으로 바뀜
end;

왜 그런건지 이유를 잘 모르겠습니다.
Screen.Cursor := xxx  ; 이렇게 쓰면 프로그램 내 전체영역의 커서에
적용된다고 알고있는데.. 다른 함수를 호출하는 거랑 상관이 있는건지..

그리고, 모래시계 모양이 되도 프로그램내의 메뉴를 선택 할 수 있던데,
커서가 모래시계모양일 경우 아무것도 선택하지 못하게 하고싶습니다.
옛날 질문을 보니까  '마우스 훅킹'이라는 방법이 있던데 넘 어려워서
사용할려고 보니 힘든 것 같습니다. 쉽게 쓸 수 있는 방법없을까요

도움 부탁드립니다.