我想定义一个数组来装图片，怎么做（定义+操作）？

Question

var BitmapArray:Array of TBitmap;
var FileArray:Array of String;//文件名列表
procedure CreateBitmap(total:integer;FileA:Array of String);
var i:integer;
begin
     SetLength(BitmapArray,total);
     For i:=0 to total-1 do
     begin
        BitmapArray[i]:=TBitmap.Create;
        BitmapArray[i].LoadFromFile(FileArray[i]);
     end;
end;
调用如：
total:=3;
SetLength(FileArray,3);
FileArray[0]:='c:\1.bmp';
FileArray[1]:='c:\2.bmp';
FileArray[2]:='c:\3.bmp';
CreateBitmap(3,FileArray);

Answer 1

to   ：　ch81(missile)　
  听君一席话，胜读十年书。
  我原来是定义了一个  aaa: array of TPicture ;
  我直接就   aaa[i].create ;
  所以出错喽，哎我真笨！！
  哦对了，给分。哈哈哈哈哈…………