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