Source position: _crw_dim.pas line 143
type TDic_Cmnd_Routine = procedure(
var tag: TDimLong;
var ret_code: Integer
);