为什么程序正在运行时,iamge不能显示动画?

正常可以显示
gif:=TGIFImage.Create;
gif.LoadFromFile('load.gif');
GIF.Paint(Image1.Canvas,Image1.ClientRect,[goTransparent,goDither,goAsync,goLoop,goAnimate,goDirectDraw]);

我想在程序运行时,加正在执行的图片

这样为什么不能显示动画呢? 要等for执行完才显示

try
  screen.Cursor:=crHourGlass;
 gif:=TGIFImage.Create;
gif.LoadFromFile('load.gif');

GIF.Paint(Image1.Canvas,Image1.ClientRect,[goTransparent,goDither,goAsync,goLoop,goAnimate,goDirectDraw]);

  for i := 1 to 100 do
begin
  Sleep(50);
end;

  finally
  screen.Cursor:=crDefault;
  end;

Sleep函数是让这个进程都休息一会儿，所以没动画了

这个进程都停了，CPU不会给这个进程分配资源了，就不显示动画了。