Source position: classesh.inc line 1866
type TGetDeltaStreamsEvent = procedure(
Sender: TObject;
Proc: TGetStreamProc;
var Handled: Boolean
) of object;