Изменение курсора и автоматическое восстановление при выходе из метода

Не знаю как у вас, а у меня коде (vcl приложение) полным-полно таких конструкций:

var
  tmpOldCursor: TCursor;
begin  
  tmpOldCursor := Screen.Cursor;
  try
    Screen.Cursor := crHourglass;
    // код который может работать относительно долго
    // например, выполнять запрос в БД
  finally
    Screen.Cursor := tmpOldCursor;
  end;
end;

И мне это надоело. По двум причинам:

1. увеличение размера модулей - по 8 строк кода на каждый такой случай
2. разбухание секции uses, ведь чтобы это работало нужно в каждый модуль работающий с курсором добавить uses Forms, Controls;

Поэтому давайте уже воспользуемся механизмом подсчёта ссылок в интерфейсах, и реализуем маленький класс избавляющий нас написания лишнего кода. Так чтобы вышеприведённый пример можно было упростить до 1й строки.

begin  
  TLazyCursorHelper.ChangeToHourglass;
  // код который может работать относительно долго
  // например, выполнять запрос в БД
end; // а здесь курсор должен восстановиться

Дайте мне знать, если вы знаете в каких случаях это не будет работать как задумывалось, или столкнётесь с такой ситуацией. В последнем случае, укажите пожалуйста в комментарии версию Delphi, платформу и была ли включена оптимизация при сборке.

update: в комментариях дали ссылку на более универсальное и элегантное решение от Barry Kelly (который долгое время занимался разработкой компилятора dcc32 в Borland/Embarcadero). Barry уверяет, что такой способ весьма надёжен.

Реализация TLazyCursorHelper: