intraweb 中 动态显示多个相同的图片

Question

需要在 intraweb 中 动态显示多个相同的图片（存在IWImageFile1中），为节省带宽，写了如下代码，却没有反应：procedure TIWForm1.IWButton3Click(Sender: TObject);
Var
  IWAry:Array [1..12] of TIWImage;
  I:Integer;
Begin
  For I:=1 To 12 Do Begin
    IWAry[I]:=TIWImage.Create(IWImageFile1.Owner);
    IWAry[I].Left:= ((I mod 4)-1)*100;
    IWAry[I].Top:= (I Div 4)*100;
    IWAry[I].Picture.Assign(IWImageFile1.Picture);
  End;
end;请教问题处在哪里？

Answer 1

自己解决了部分问题；将代码作如下改进： 
procedure TIWForm1.IWButton3Click(Sender: TObject); 
Var 
  IWAry:Array [1..12] of TIWImageFile; 
  I:Integer; 
Begin 
  For I:=1 To 12 Do Begin 
    IWAry[I]:=TIWImageFile.Create(Self); 
    IWAry[I].Parent:=Self; 
    IWAry[I].Left:= ((I mod 4)-1)*100; 
    IWAry[I].Top:= (I Div 4)*100; 
    IWAry[I].ImageFile:=IWImageFile1.ImageFile; 
  End; 
end; 可以显示图像，但仍然是从服务端加载图片，且页面要刷新。 
将代码移入 
IWButton3AsyncClick(Sender: TObject; 
  EventParams: TStringList)中，又无法显示图像。 
请教高手解决办法！