закачка файла отдельным потоком.

[ZeitGeist7]

написал я поток...
"спасибо" почему то говорить не хочется....
так вот вопрос:
вот модуль

unit DownloadTread;

interface

uses
  Classes , Windows , wininet ;

//--------------------поток---------------------------
//---------------создание--потока---------------------
type
TMyThread = class(TThread)
  private
    _ThreadLink, _ThreadFile : string;
    F: File;
    BufferLen,SumSize: DWORD;
    hSession, hURL: HInternet;
    Buffer: array[1..1024] of Byte;
    err: boolean;

  protected

    procedure Execute; override;
   public
    constructor Create(const ThreadLink: string; const ThreadFile: string );
  end;

implementation
//uses MainUnit;
 // Synchronize(ThreadBoolUpdate);
//---------------создание--потока---------------------

constructor TMyThread.Create(const ThreadLink: string; const ThreadFile: string );
begin
  _ThreadLink := ThreadLink;
  _ThreadFile := ThreadFile;
  inherited Create(False);
end;
//--------------для-синхронизации-результата-выполнения-потока-------
procedure ThreadBoolUpdate;
begin
//
end;
//--------------для-синхронизации-результата-выполнения-потока-------
//---------------код--потока--------------------------
procedure TMyThread.Execute;
begin
FreeOnTerminate := True;
try
  SumSize:=0;                         //_ThreadLink, _ThreadFile
//  ResumePos:=0;   //Инициализируемся
  AssignFile (F,_ThreadFile);  //Свяжемся с файлом
  ReWrite(f,1);  //А раз нет, так создадим
//Открыли сессию
  hSession:= InternetOpen('X-Kachalka',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
//И наш УРЛ
  hURL := InternetOpenURL(hSession,PChar(_ThreadLink),nil,0,0,0);
  InternetQueryDataAvailable(hURL, SumSize,0,0);
  REPEAT //Качаем
    err:= InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер
    IF err= false or terminated then //Ошибка чтения
       begin
          InternetCloseHandle(hURL);
          Closefile(f);
 //         _ThreadResult := false;
          exit;
          terminate;
       end;
     BlockWrite(f, Buffer, BufferLen); //Пишем в файл
  UNTIL (BufferLen= 0);
   begin
      InternetCloseHandle(hURL);
//      _ThreadResult := true;
      Closefile(f);
      terminate;
   end;
except
 begin
//  _ThreadResult := false;
  InternetCloseHandle(hURL);

 end;
terminate;
end;
end;
//---------------код--потока--------------------------
//--------------------поток---------------------------

end.

вызывается так:
TMyThread.Create(_Link,_File);

так вот: из-за чего прога с подключённым к нему потоком после завершения выполнения потока увеличивает свой размер в памяти и не желает его понижать? что у меня не free?
я настолько измучен этим что мне просто необходим свежий взгляд со стороны

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

а ты сам поток потом освобождать не забываешь?

[ZeitGeist7]

как? то есть terminate писать после TMyThread.Create(_Link,_File); ?