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