[[AzidRain]]

Creo que el try está mal ubicado:

Código Delphi [-]
Screen.Cursor   := crHourGlass;
Fasistenciaanual:= TFasistenciaanual.create( nil );
Screen.Cursor   := crDefault;
try 
    
  Fasistenciaanual.Showmodal;    
finally
  Screen.Cursor := crDefault;
  Fasistenciaanual.Free;
 end;

Sería bueno si nos indicas que pusiste en el OnCreate u OnShow de FAsistenciaAnual