With Firemonkey, how to give feedback to the user ? (crHourglass)

Question

Usually, when I have a task which takes some time, I use a script like this:

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

  try    
  // the task

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

With FireMonkey, Screen doesn't have a property: Cursor.

What is the best way to give some feedback to the user?

---

---

I followed the comments and the answer... with a TPanel which has less opacity, and a TAniIndicator (I also blur the other components):

Thank you!