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