Source position: ssockets.pp line 146
type TOnAcceptError = procedure(
Sender: TObject;
ASocket: LongInt;
E: Exception;
var ErrorAction: TAcceptErrorAction
) of object;