[mzell]

Hola Manuel.
Porque no pruebas de esta forma:

  try
    Screen.Cursor := crHourGlass;
    Fasistenciaanual := TFasistenciaanual.Create(self);
    Fasistenciaanual.ShowModal;
  finally
    screen.Cursor := crDefault;
  end;