var 
  abmps: TBitmap;
begin
  senlength(abmps,icount);
  for i:=0 to icount-1 do
    abmps:=TBitmap.Create();
  abmps.load;
end;

解决方案 »

  1.   

    错了,改为
    var 
      abmps: array of TBitmap;
    begin
      senlength(abmps,icount);
      for i:=0 to icount-1 do
        abmps:=TBitmap.Create();
      abmps.load;
    end; 
      

  2.   

    将所有BMP的名称存到TXT文件中,再调入!
      

  3.   

    var 
      BmpArray: array of TBitmap;
    begin
      senlength(BmpArray,Count);
      for i:=0 to Count-1 do
      begin
        BmpArray[i]:=TBitmap.Create;
        BmpArray[i].LoadFromFile('...');
      end;
    end;