Source position: win32int.pp line 110
type TSocketEvent = function(
ASocket: THandle;
Flags: dword
):Integer of object;