delphi中如何设置serversocket的接收字节上限

我在delphi中接收客户端发送过来的字节，每次最多只能收到8192个字节长度，如果才能增加这个上限值，我用setsockopt(ServerSocket1.Socket.Handle,SOL_SOCKET,SO_RCVBUF,PChar(@i),SizeOf(i));其中I:=$ffff*6;网上查过好像过个可以设置接收的缓冲区，不过我好像设了没用，接收的还是8192个，如果超过8192的话，就要收第二次clientsocket我也设置成setsockopt(ServerSocket1.Socket.Handle,SOL_SOCKET,SO_ENDBUF,PChar(@i),SizeOf(i));这个应该是可以一次性发送超过8192的但是还是不可以，有什么办法可以令delphi自带的serversocket一次接收的大小可以自己设置的