TAccept

type TAccept = function(

  s: TSocket;

  addr: PSockAddr;

  var addrlen: Integer

):TSocket;