关于TImage控件图像逐像素刷新的问题

Question

以下代码在一个循环中逐像素改变ExampleShow.OutputBitMap的内容，每改变一次就在TImage控件上显示一次OutputBitMap的内容，以此实现类似动画的效果。
var
  i: integer;
  b: boolean;
  
begin
  i:=400;//  while i<1500 do
  begin
    i:=i+1;
    b:=ExampleShow.GetOutPutBitMap(Screen, i);//更改ExampleShow.OutputBitMap的像素内容，成功返回true
    if b=true then
      Image1.Picture.Bitmap.Assign(ExampleShow.OutputBitMap);
  end;
end;
以上代码执行以后，只见i=1500时ExampleShow.OutputBitMap的画面，没有逐帧变化的视觉效果，请问原因。

Answer 1

或者每次重新设置图像后调用一次控件的repaint事件。