Освобождение памяти

[PUH]

Может ли данная функция кушать память (не освобождать по выполнении) ? Используется и из вспомогательных потоков, и из главного потока.

function httpget (http : tidhttp; adr : widestring) : widestring;
var
  str : tstringstream;
begin
  str := tstringstream.Create('');
  try http.Get (adr, str); except end;
  Result := str.DataString;
  str.Free;
end;

С некоторого времени многопоточные программы для работы с сетью стали кушать очень много памяти (на 50 потоков - 80 мб уже на 10-й минуте работы, чем дальше - тем больше). TrimWorkingSet, естественно, не помогает.

[Utkin]

По идеи не должна.
Единственно, можно посмотреть конструктор

constructor Create(AString: string);

Возможно требуется не строка, а указатель на неё.

var
      x: String;
begin
str := tstringstream.Create(x);
end;