TSetSockOptProc = function (s: TSocket; level, optname: Integer; optval: PChar; optlen: Integer): Integer;