Source position: msesockets.pas line 167
type socketaccepteventty = procedure(
const sender: tcustomsocketserver;
const asocket: Integer;
const addr: socketaddrty;
var accept: Boolean
) of object;