После старта потока файл начинает загружаться, после чего поток зависает

....
 
var
  Form1: TForm1;
  WorkMax, TickCount, BytesCount: Int64;
  link: string;
 
implementation
 
{$R *.dfm}
 
function ExtractUrlFileName(const FileName: string): string;
var
  I: Integer;
begin
  I := FileName.LastDelimiter('/');
  Result := FileName.SubString(I + 1);
end;
 
function SizeOfFile(Size: Double): String;
begin
  if Size < 1024 then
    Result := Format('%.2f', [Size]) + ' Б';
  if Size > 1024 then
    Result := Format('%.2f', [Size / 1024]) + ' Кб';
  if Size > 1048576 then
    Result := Format('%.2f', [Size / 1048576]) + ' Мб';
  if Size > 1073741824 then
    Result := Format('%.2f', [Size / 1073741824]) + ' Гб';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  adir, afile: string;
begin
  if SelectDirectory('Выберите каталог', '', adir) then
  begin
    if adir[Length(adir)] <> '\' then
      adir := adir + '\';
    afile := ExtractUrlFileName(link);
    Edit1.Text := adir + afile;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  IdThreadComponent1.Start;
end;
 
procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
var
  I: Int64;
begin
  if (ASender as TIdHttp).Response.ResponseCode <> 200 then
    Exit;
  ProgressBar1.Position := AWorkCount;
  ProgressBar2.Position := WorkMax - AWorkCount;
  CaptionDownload.Caption := SizeOfFile(AWorkCount);
  CaptionLeft.Caption := SizeOfFile(WorkMax - AWorkCount);
  I := GetTickCount;
  if I > TickCount then
    CaptionSpeed.Caption := SizeOfFile((AWorkCount - BytesCount) *
      (1000 / (I - TickCount))) + '/c';
  BytesCount := AWorkCount;
  TickCount := I;
end;
 
procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  if (ASender as TIdHttp).Response.ResponseCode <> 200 then
    Exit;
  TickCount := GetTickCount;
  BytesCount := 0;
  WorkMax := AWorkCountMax;
  CaptionSizeFile.Caption := SizeOfFile(WorkMax);
  ProgressBar1.Max := WorkMax;
  ProgressBar1.Position := 0;
  ProgressBar2.Max := WorkMax;
  ProgressBar2.Position := WorkMax;
end;
 
procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  if (ASender as TIdHttp).Response.ResponseCode <> 200 then
    Exit;
  Timer1.Enabled := false;
  IdThreadComponent2.Start;
end;
 
procedure TForm1.IdThreadComponent1Run(Sender: TIdThreadComponent);
var
  Stream: TFileStream;
  Http1: TIdHttp;
begin
  CaptionTime.Caption := '00:00:00';
  Timer1.Tag := 0;
  Timer1.Enabled := true;
  Stream := TFileStream.Create(Edit1.Text, fmCreate);
  Http1 := TIdHttp.Create(nil);
  Http1.HandleRedirects := true;
  Http1.OnWorkBegin := IdHTTP1WorkBegin;
  Http1.OnWork := IdHTTP1Work;
  Http1.OnWorkEnd := IdHTTP1WorkEnd;
  try
    Http1.get(link, Stream);
  except
    if IdThreadComponent1.Terminated then
      Exit;
    Sender.Synchronize(messageerror);
    Stream.Free;
    Http1.Free;
    Timer1.Enabled := false;
    IdThreadComponent1.Stop;
    Exit;
  end;
  Stream.Free;
  Http1.Free;
  IdThreadComponent1.Stop;
end;
 
procedure TForm1.IdThreadComponent2Run(Sender: TIdThreadComponent);
begin
  Sender.Synchronize(messageok);
  IdThreadComponent2.Stop;
end;
 
procedure TForm1.messageerror;
begin
  ShowMessage('Ошибка');
end;
 
procedure TForm1.messageok;
begin
  ShowMessage('Файл загружен');
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  ss, mm, hh: string;
begin
  Timer1.Tag := Timer1.Tag + 1;
  ss := Format('%.2u', [Timer1.Tag mod 60]);
  mm := Format('%.2u', [(Timer1.Tag div 60) mod 60]);
  hh := Format('%.2u', [(Timer1.Tag div 3600) mod 24]);
  CaptionTime.Caption := hh + ':' + mm + ':' + ss;
end;
 
end.

ProgressBar1.Position := AWorkCount;
ProgressBar2.Position := WorkMax - AWorkCount;
CaptionDownload.Caption:=SizeOfFile(AWorkCount);
CaptionLeft.Caption:=SizeOfFile(WorkMax - AWorkCount);