Source position: _crw_dims.pas line 64
type TOnDisInfoSend = procedure(
Service: TDisInfoService;
var Buffer: Pointer;
var Size: Integer;
First: Integer
);