怎么把选中的多个图像文件装载入IMAGE控件。

Question

我正在做一个看图软件，怎么把用户选择的多个图像文件装载入IMAGE控控件。
有两种装载方式，随机和循环。最好有代码。谢谢大侠，本人迷惑了一天。

Answer 1

var
  BMP : TBitmap;
  i : integer;
begin
  for i:=1 to 10 do begin
    BMP := TBitMap.Create;
    BMP.LoadFromFile('A'+inttostr(i)+'.bmp');
    Image1.Canvas.Draw(i*BMP.height+1,1,BMP);
    BMP.Free;
  end;
end;

Answer 2

Image1:=TImage.create(self);
                   Image1.parent:=main;
                    Image1.Picture.LoadFromFile('xxx.xxx')