Source position: _crw_dim.pas line 685
var dis_add_exit_handler: procedure(
UserRoutine: TDis_Exit_Handler
);