如何在TEdit中放置进度条？

Question

我想在TEdit中或在ComboBox等其他控件中放置一个进度条。

例如，如何设置这样的进度条？

我试过ProgressBar.Parent := Edit1无效。