Source position: _crw_dim.pas line 686
var dis_add_error_handler: procedure(
handler: TDis_Error_Handler
);