lenassnake() 在吗？请进来！！！！

我写了一个小程序（c/s）的，由于有一个字段是将图片保存到数据库的，图片大了就会有等待时间，能不能做一个页面放上等待动画，表示数据正在存入数据表，存入完毕后关闭这个页面，怎么做啊？还有就是读取的时候也相同
不想用ProgressBar1，只想弹出一个带有等待动画的窗口，只是不知道什么时候弹出，什么时候关闭，请高手们指点！
这是我的问题，下面是您的回帖，我觉得不错，但是有一些不明白的问题：
方法A，用当前程序线程1.先做好你要显示的动画窗口 TWaitForm 。
2.在保存的动作中添加代码。
  var awfrm : TWaitForm;
    awfrm := TWaitForm.create(nil);
    try
       awfrm.show;
       .....
       保存代码
       ..... 
    finally
       Freeandnil(awfrm); 
    end;
方法B.用后台线程做.
   1.在线程运行的代码前加上 
        awfrm := TWaitForm.create(nil);
        awfrm.show;
        athread.Resume; 
   2.在线程结束的事件里关闭。
        Freeandnil(awfrm); 
1、方法B中athread.Resume;是什么意思？delphi7中显示代码错误
2、用方法A能运行，但是awfrm上面的文字和动画都不见了，只显示一个空的awfrm，怎么回事？麻烦您指点