Eliminating HTTP headers in a TIdHTTP component

While working on a project which uses the TIdHTTP component, I realized I needed to eliminate certain HTTP headers from being sent.

After examining the logic flow in Indy's TIdHTTP component, I realized that all I needed to do to manipulate HTTP headers is to create a TIdHttpRequest descendant, and override the SetHeaders method.

Then, before making a call to any of the TIdHTTP.Get methods, assign an instance of the TIdHttpRequest descendant to the TIdHTTP.Request property, like so:

  IdHTTP1.Request.Free;

  IdHTTP1.Request.Free;
  IdHTTP1.Request := TIdHTTPRequestReplacement.Create(IdHTTP1);

Here's what the SetHeaders method looks like:

procedure TIdHTTPRequestReplacement.SetHeaders;
var
  I: Integer;
  LHeader: string;
  SL: TStringList;
begin
  inherited;
  SL := TStringList.Create;
  try

// Clear any headers that is not User-Agent, Host, etc...
    for I := 0 to RawHeaders.Count-1 do
      begin
        LHeader := RawHeaders.Names[ I ];
        if (LHeader<>'User-Agent') and (LHeader<>'Host') and
          (LHeader<>'xxx') and (LHeader<>'yyy') then
          SL.Add(LHeader);
      end;

// Pretend we're some other browser
    RawHeaders.Values['User-Agent'] := 'custom user-agent';

    for LHeader in SL do
      RawHeaders.Values[LHeader] := '';
  finally
    SL.Free;
  end;
end;