Ускорить загрузку изображения

[Kronos913]

Итак, вопрос такой

Для загрузки изображения использую

For i:=1 to 21 do Img[j].Picture.LoadFromFile(ss[i]);

Img - массив TImage

Занимает порой секунд 6-7, минимум 2

Вопрос: можно ли как-то ускорить это дело?

[Pavia]

Записать в один файл. ОС тратит много времени на открытие файла, а так не будет.

А вообще вам комп надо почистить. Так как в современных ОС хорошо оптимизировано.

[Arigato]

Проверил на 100 картинках размера 2560*1440 (размер файла 10 Мб):

procedure TForm1.Button2Click(Sender: TObject);
var
  Img: array[1..100] of TBitMap;
  i: Integer;
  t: LongWord;
begin
  t := GetTickCount;
  For i:=1 to 100 do begin
    Img[i] := TBitMap.Create;
    Img[i].LoadFromFile('1.bmp');
  end;
  t := GetTickCount - t;
  ShowMessage('ok: ' + IntToStr(t));
  For i:=1 to 100 do begin
    Img[i].Free;
  end;
end;

Время меньше 500 мс, то есть около 0.5 секунды.