anchor.diff:  procedure TDiocpHttpClient.Close;
   begin
     FRawSocket.Close();
  +  FLastHost := '';
  +  FLastPort := 0;
  +  FLastActivity := 0;
   end;
   
   procedure TDiocpHttpClient.Get(pvURL: String);
  
positive.code:     procedure CheckSocketResult(pvSocketResult:Integer);
      procedure InnerExecuteRecvResponse();
      procedure InnerExecuteRecvResponseTimeOut;
      procedure Close;
  
      procedure DoAfterResponse;
      function GetResponseResultCode: Integer;
  
  
negative.code:     constructor Create(AOwner: TComponent); override;
      
      destructor Destroy; override;
      procedure Close;
      procedure Post(pvURL:String);
      procedure Get(pvURL:String);
      procedure DirectPost(pvHost: string; pvPort: Integer; pvBuf: Pointer; len:
          Cardinal);
  
      procedure SetRequestBodyAsString(pvRequestData: string; pvConvert2Utf8:
          Boolean);
  