Source position: blcksock.pas line 209
type THookMonitor = procedure(
Sender: TObject;
Writing: Boolean;
const Buffer: TMemory;
Len: Integer
) of object;