GZIP распаковка веб страницы

HeadersToList(http.Headers); // полезная функция, позволяет перевести заголовок в параметрический вид
if trim(http.Headers.Values['Content-Encoding']) = 'gzip' then // если ответ пришел в сжатом виде
 begin
  str := ReadStrFromStream(http.Document, http.Document.Size); // считываем тело документа
  str := GZDecompressStr(str); // распаковываем его
 end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
uses
  httpsend,
  ZLibExGZ,
 *synautil;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  http: THTTPSend;
  str: string;
begin
  http := THTTPSend.Create;
  HTTP.Protocol := '1.1'; // указываем версию HTTP протокола
  http.Headers.Add('Accept-Encoding: gzip'); // указываем, что хотим получить сжатые данные
  http.HTTPMethod('GET', 'http://www.afisha.ru/');
  HeadersToList(http.Headers); // полезная функция, позволяет перевести заголовок в параметрический вид
  if trim(http.Headers.Values['Content-Encoding']) = 'gzip' then // если ответ пришел в сжатом виде
  begin
    str := ReadStrFromStream(http.Document, http.Document.Size); // считываем тело документа
    str := GZDecompressStr(str); // распаковываем его
  end;
  str := '';
end;
end.