с Firebonkey, как дать отзыв пользователям? (Chrhourglass)

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

procedure Work;
var
  cPrevious: TCursor;
begin
  cPrevious     := Screen.Cursor;
  Screen.Cursor := crHourGlass;

  try    
  // the task

  finally    
    Screen.Cursor := cPrevious;
  end;
end;

с экраном Fireonkey, не имеет свойства: курсор: курсор: курсор: курсор: курсор: курсор: курсор .