var
abmps: TBitmap;
begin
senlength(abmps,icount);
for i:=0 to icount-1 do
abmps:=TBitmap.Create();
abmps.load;
end;
abmps: TBitmap;
begin
senlength(abmps,icount);
for i:=0 to icount-1 do
abmps:=TBitmap.Create();
abmps.load;
end;
var
abmps: array of TBitmap;
begin
senlength(abmps,icount);
for i:=0 to icount-1 do
abmps:=TBitmap.Create();
abmps.load;
end;
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;