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 мб. при запуске. Чем дольше работает - тем больше кушает.

D2010, indy 10.5.7 (одна из последних ревизий)

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

50$ за решение готов отдать, бедный студент

[samec]

может http.Free; compressor.Free; просто не выполняются?
можт как нить так:

procedure Test.Execute;
var
http : Tidhttp;
s : string;
compressor : tIdCompressorZLib;
begin
Try
http := Tidhttp.Create; http.Request.AcceptEncoding := 'gzip, deflate';
compressor := tIdCompressorZLib.Create; http.Compressor := compressor;
s := http.get ('http://yandex.ru');
Finally
http.Free; compressor.Free; 
end;
exit;
end;

[Пепел Феникса]

в асю напиши, поговорим

пауэрлифтинг, вообще то Free сам по себе вызывает Destroy;
просто он проверяет существует ли обьект вообще или нет.

[пауэрлифтинг]

Может надо вызвать дестрой вместо фрее

[PUH]

Заметил - если к главной форме не обращаться из потока (например, form1.memo1.lines.add ('') - памяти кушает меньше на тот же промежуток времени.

[freest]

пусть программа вызывает себя новую и закрывает текущую , оставляя работать нову, сохраняя и считывая нужные данные с файла