Indy в потоке - утечка памяти

[PUH]

Доброго времени суток!

Имею проблему с утечкой памяти.

Код потока:

procedure Test.Execute;
var
  http : Tidhttp;
  s : string;
  compressor : tIdCompressorZLib;
begin
  http := Tidhttp.Create; http.Request.AcceptEncoding := 'gzip, deflate';
  compressor := tIdCompressorZLib.Create; http.Compressor := compressor;

  s := http.get ('http://yandex.ru');

  http.Free; compressor.Free; exit;
end;

После остановки, по идее, он должен освободить занимаемую память. Но этого не происходит - уже через час бесперебойной работы программы она занимает 50-60 мб. оперативной памяти, против 2 мб. при запуске. Чем дольше работает - тем больше кушает.

Помогите разобраться в проблеме, пожалуйста - программы должны сутками бесперебойно работать, а этого не выходит.