anchor.diff:    _DownloadCount := 0;
   End;
   
  +Procedure DummyCallback(Download:HTTPDownloader); Cdecl;
  +Begin
  +  // do nothing
  +End;
  +
   Procedure DownloadManager.Release;
   Var
     I:Integer;
   Begin
  +  For I:=0 To Pred(_DownloadCount) Do
  +    _Downloads[I]._Request._Callback := DummyCallback;
  +
  +  Self.Flush();
  +
     For I:=0 To Pred(_DownloadCount) Do
       ReleaseObject(_Downloads[I]);
   
  
positive.code:     Protocol := HTTPProtocol;
  End;
  
  { HTTPDownloader }
  Constructor HTTPDownloader.Create(Request:HTTPRequest);
  Var
    I:Integer;
    CachedFile:TERRAString;
  Begin
    _Connection := Nil;
    _Request := Request;
  
    Request.Prepare(_URL, CachedFile);
  
    If (CachedFile<>'') Then
  
negative.code:         _Downloads[I]._ErrorCode := httpConnectionTimeOut;
        End;}
  
        {$IFDEF DISABLETHREADS}
        _Downloads[I].Update();
        {$ENDIF}
  
        If (_Downloads[I].Progress>=100) Then
        Begin
  