Delphi: распаковка GZip

Получаем на входе HTTP-пакет, пример пакета (в запакованном виде) прикрепляю к заданию.

Всё, что идёт после "Connection: close" - надо распаковать ОДНОЙ функцией, которая будет находиться в Вашем юните. Юнит назовём, например, DeGZip, а функцию:

function gzip_decode(const CodedHTML:String):String;

Использовать только внутренние возможности Delphi 2007! Например ZLib