Source position: lnet.pp line 51
type TLSocketErrorEvent = procedure(
const msg: string;
aSocket: TLSocket
) of object;