anchor.diff:  constructor TRemoteServerDIOCPImpl.Create;
   begin
     inherited Create;
  -  FTcpClient := TDiocpBlockTcpClient.Create(nil);
  +  {$IFDEF USE_INDY}
  +  FTcpClient := TIdTCPClient.Create(nil);
  +  FCoderSocket := TIdTCPClientCoderImpl.Create(FTcpClient);
  +  {$ELSE}
  +  FTcpClient := TDiocpBlockTcpClient.Create(NIL);
     FCoderSocket := TDTcpClientCoderImpl.Create(FTcpClient);
  +  {$ENDIF}
     
     FMsgPack := TSimpleMsgPack.Create;
     FRecvStream := TMemoryStream.Create;
  
positive.code: type
    TRemoteServerDIOCPImpl = class(TInterfacedObject, IRemoteServer)
    private
      FTcpClient: TDiocpBlockTcpClient;
      FCoderSocket: ICoderSocket;
      FMsgPack:TSimpleMsgPack;
      FSendStream:TMemoryStream;
  
negative.code: 
  interface
  
  {$DEFINE USE_INDY}
  
  uses
    uIRemoteServer,
    {$IFDEF USE_INDY}
    IdTCPClient,
    uDTcpClientCoderImpl,
    {$ELSE}
    diocp_tcp_blockClient,
    uDTcpClientCoderImpl,
    {$ENDIF}
  
    uStreamCoderSocket,
    SimpleMsgPack,
    Classes,
  