Source position: blcksock.pas line 206
type THookCreateSocket = procedure(
Sender: TObject
) of object;