数据转移的问题！

用dephi做了一个对SqlServer数据进行转移的小程序，由于数据量比较大，要用大概10分钟的时间才能完成，为了让用户知道当前转换的数据内容，想做一个Label1指示正在操作的数据，放在数据转换的循环的中间
while not Eof do
    begin
      Label1.Caption :='正在操作'+...+'数据...';
      //数据转移
      ......
      next;
    end;
可是Label1的那句话老是执行不出来，数据转移过程中cpu的占用率几乎是100%，直到转移完了Label1才显示出来，这个问题怎么解决呢？