idhttp в потоке получает пустой txt файл

unit updatemodule;
 
interface
 
uses
  System.Classes,shellapi,idhttp,system.SysUtils,Dialogs,messages;
 
type
  TUpdateToolModule = class(TThread)
  protected
    procedure Execute; override;
    procedure DoWork;
  end;
 
implementation
 
{
  Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,
 
      Synchronize(UpdateCaption);
 
  and UpdateCaption could look like,
 
    procedure Update.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end;
 
    or
 
    Synchronize(
      procedure
      begin
        Form1.Caption := 'Updated in thread via an anonymous method'
      end
      )
    );
 
  where an anonymous method is passed.
 
  Similarly, the developer can call the Queue method with similar parameters as
  above, instead passing another TThread class as the first parameter, putting
  the calling thread in a queue with the other thread.
 
}
 
{ Update }
 
procedure TUpdateToolModule.Execute;
var TM: TMemoryStream;
    f,f2: TextFile;
    str,str2: string;
    TM2,TM3:TMemoryStream;
    request:integer;
    idhttp1:Tidhttp;
begin
  NameThreadForDebugging('UpdateTool');
  Synchronize(DoWork);
end;
 
procedure TUpdateToolModule.DoWork;
var TM: TMemoryStream;
    f,f2: TextFile;
    str,str2: string;
    TM2,TM3:TMemoryStream;
    request:integer;
    idhttp1:Tidhttp;
begin
  try
  TM:= TMemoryStream.Create;
  idhttp1.get('http://files.diskanet.ru/1/e/eebef6f6/version.txt',TM);
  finally
  TM.SavetoFile('version.txt');
  end;
  TM.Free;
  idhttp1.Free;
  AssignFile(f,ExtractFilePath(ParamStr(0))+'version.txt');
  reset(f);
  while not eof(f) do begin
                      readln(f, str);
                      end;
closefile(f);
if strtoint(str)>26 then begin
                                         showmessage('Скачивается обновление програмы');
                                         TM2:=TMemoryStream.Create;
                                         idhttp1.Get('http://files.diskanet.ru/1/6/65bcf083/file.txt',TM2);
                                         TM2.SaveToFile('file.txt');
                                         AssignFile(f2,ExtractFilePath(ParamStr(0))+'file.txt');
                                         reset(f2);
                                         while not eof(f2) do begin
                                         readln(f2, str2);
                                         end;
                                         closefile(f2);
                                         TM3:=TMemoryStream.Create;
                                         idhttp1.Get(str2,TM3);
                                         TM3.SaveToFile('update.exe');
                                         ShellExecute(0,PChar('open'),PChar(ExtractFilePath(ParamStr(0))+'update.exe'),Nil,Nil,1);
                                         end
 
 
end;
 
end.