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