anchor.diff:  
   function TWiRLClient.GetClientImplementation: TObject;
   begin
  +  CreateHttpClient;
     Result := FHttpClient.ClientImplementation;
   end;
   
   function TWiRLClient.GetRequest: TWiRLRequest;
   begin
  +  CreateHttpClient;
     Result := FHttpClient.Request;
   end;
   
   function TWiRLClient.GetResponse: TWiRLResponse;
   begin
  +  CreateHttpClient;
     Result := FHttpClient.Response;
   end;
   
  
positive.code: 
  function TWiRLClient.LastCmdSuccess: Boolean;
  begin
    Result := FHttpClient.Response.StatusCode = 200;
  end;
  
  procedure TWiRLClient.Loaded;
  begin
    inherited;
    CreateHttpClient;
  end;
  
  procedure TWiRLClient.Delete(const AURL: string; AResponseContent: TStream);
  begin
    InitHttpClient;
  
negative.code: 
  procedure TWiRLClient.InitHttpClient;
  begin
    CreateHttpClient;
    FHttpClient.ProxyParams := FProxyParams;
    FHttpClient.ConnectTimeout := ConnectTimeout;
    FHttpClient.ReadTimeout := ReadTimeout;
  