Source position: _crw_dim.pas line 142
type TDic_User_Routine = procedure(
var tag: TDimLong;
buff: Pointer;
var size: Integer
);