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