Source position: ssockets.pp line 171
type TFPOnAcceptError = procedure(
Sender: TObject;
ASocket: TFPSocket;
E: Exception;
var ErrorAction: TAcceptErrorAction
) of object;