【Delphi】在 ProgressBar 內顯示進度文字

在 Form 上放一個 ProgressBar(name=progressBar) 和 Label(name=lblProgress)

 
lblProgress.Parent := progressBar;
lblProgress.AutoSize := False;
lblProgress.Transparent := True;
lblProgress.Top :=  0;
lblProgress.Left :=  0;
lblProgress.Width := progressBar.ClientWidth;
lblProgress.Height := progressBar.ClientHeight;
lblProgress.Alignment := taLeftJustify;
lblProgress.Layout := tlCenter;