套接字接收线在Windows 11下总是为空？

Question

我有一个线程，我要打开一个插座，并执行它，等待从另一侧接收字符串。 它在所有Windows版本上都在Delphi 7上运行良好，但使用Delphi 11编译 - 它在其余的Windows版本上都可以使用，除了11。在Windows 11下，我将获得socket.receivetext.receivetext为空，并且socket.receiveLength永远是0。

TThread_Connection_Main = class( TThread )
      Socket: TCustomWinSocket;
      constructor Create(aSocket: TCustomWinSocket); overload;
      procedure Execute; override;
   end;

procedure TThread_Connection_Main.Execute;
begin
   inherited
   while Socket.Connected do
   begin
      Sleep( 2); 
      if ( Socket = nil ) or not( Socket.Connected ) then
         Break;
      if Socket.ReceiveLength < 1 then
         Continue;
    ...

   end;

end;

• 是否有特定的操作对于Windows 11插座与Delphi 11兼容？

PS：刚刚发现该问题也存在于Delphi 10.4。