Напиши типа
var
...
Image: array[0..10000] of Tbitmap;
...
//Создание картинок
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:=0 to 10000 do begin
Image[i]:=TBitMap.Create;
end;
end;
//Удаление из памяти
procedure TForm1.FormDestroy(Sender: TObject);
var
i: integer;
begin
for i:=0 to 10000 do begin
Image[i].Destroy;
end;
end;
Для отабражения сложи все в один и отабрози в Timage
У меня всё работает