anchor.diff:    inherited Create(AOwner);
     FRawSocket := TRawSocket.Create;
     FReadTimeOut := 30000;
  +  FSendTimeOut := 30000;
   end;
   
   destructor TDiocpBlockTcpClient.Destroy;
  
positive.code:   if FActive then exit;
  
    FRawSocket.createTcpSocket;
    FRawSocket.setReadTimeOut(FReadTimeOut);
  
    // 
    lvIpAddr := FRawSocket.GetIpAddrByName(FHost);
  
    FActive := FRawSocket.ConnectTimeOut(lvIpAddr, FPort, pvMs);
    if not FActive then
    begin
      raise Exception.CreateFmt(strConnectTimeOut, [FHost, FPort]);
    end;
  
  end;
  
negative.code:     FPort: Integer;
      FRawSocket: TRawSocket;
      FReadTimeOut: Integer;
      FSendTimeOut: Integer;
      function GetActive: Boolean;
      procedure SetActive(const Value: Boolean);
  
  