Erzeugtes Object wird nicht freigegeben?

[SirThornberry]

so ist es. Der Quelltext von TIdHttpServer sieht grob vereinfacht so aus:

Delphi-Quellcode:

if Assigned(OnCommandGet) then //onCommandGet <> nil
begin
  OnCommandGet(lContext, lRequestInfo, lResponseInfo);
  if Assigned(lResponseInfo.ContentStream) then //lResponseInfo.ContentStream <> nil
  begin
    //Sende Stream
    [...]
    lResponseInfo.ContentStream.Free;
  end;
end;