Source position: blcksock.pas line 197
type THookSocketStatus = procedure(
Sender: TObject;
Reason: THookSocketReason;
const Value: string
) of object;