如何在Image控件上覆盖一个进度条

由于数据处理的进度比较慢，如果没有一点提示信息，仍以让人以为程序死锁了，就像在界面上加一个数据处理的进度提示，界面是一个TImage控件，当然静态的添加一个进度条，没有问题，因为这个进度条不是很常用，静态添加后占用内存（尽管现在内存不成问题了），就想动态添加，代码如下：

        TProgressBar *ProgressBar1;
        ProgressBar1 = new TProgressBar(this);
        ProgressBar1->Parent =Image1->Parent;  //这一句很关键，第一次使用，感谢老妖的指点
        ProgressBar1->Align = alBottom;
        ProgressBar1->Height =17;
        ProgressBar1->Min = 0;
        ProgressBar1->Max = 100;

进度条动态生成了，使用就和静态的一样了，使用完毕 delete ProgressBar1;