uses
System.Generics.Collections;
const
C_TOTAL = 1000;
var
i, idx: integer;
List: TObjectList< TImage >;
begin
List := TObjectList< TImage >.Create();
for i := 0 to C_TOTAL - 1 do
begin
idx := List.Add(TImage.Create(nil));
List[idx].Picture.LoadFromFile('Image1.bmp')
end;
List.Delete(0);
List.Clear;
List.Free;
end.