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