我将AWorkCount值赋给ProgressBar.Position值，如下所示：

procedure TfrmDosyaİndirmeProgramı.indyDosyaİndiriciWork(ASender: TObject;
  AWorkMode: TWorkMode; AWorkCount: Int64);
begin
  pbİndirmeGöstergesi.Position := AWorkCount;

lblİndirmeYüzdesi是Download Percantage Label

lblİndirmeYüzdesi.Caption := IntToStr(Round((pbİndirmeGöstergesi.Position div pbİndirmeGöstergesi.Max) * 100));
end;

我还将Total File Size值赋给ProgressBar.Max值，如下所示：

btnDuraklat.Enabled := True;
  btnİndir.Enabled := False;

  strİndirilenDosya := 'OG9995-ARCTICO.rar';
  strLink := edİndirmeLinkiniGirmeKutusu.Text;

  indyDosyaİndirici := TIdHTTP.Create(nil);
  indyDosyaİndirici.OnWork := indyDosyaİndiriciWork;
  indyDosyaİndirici.OnWorkBegin := indyDosyaİndiriciWorkBegin;

  sslDosyaİndirici := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  sslDosyaİndirici.SSLOptions.Method := sslvTLSv1_2;

  indyDosyaİndirici.HandleRedirects := True;
  indyDosyaİndirici.IOHandler := sslDosyaİndirici;

  indyDosyaİndirici.Head(strLink);

  intSunucudakiDosyanınBoyutu := indyDosyaİndirici.Response.ContentLength;

intSunucudakiDosyanınBoyutu是Total File Size

pbİndirmeGöstergesi.Max := intSunucudakiDosyanınBoyutu;

进度条的作用就像一个护身符。

但问题是，除了0 (zero)之外，标签没有显示任何内容。

我如何解决我的问题？