Освобождение памяти TList<>

Хочу сделать список jpg картинок (с загрузкой из файлов и сохранением в файлы), вроде все норм, но встал вопрос об освобождении памяти

type
  TImg = record
    idb: integer;
    imgno: integer;
    imgj: TJPEGImage;
  end;

procedure myProc();
var
  mg:TImg;
  i: integer;
  imgLst: TList<Timg>;
begin
  imgLst:=TList<TImg>.create;

  for i := 1 to 10 do
    begin
      mg.idb:=1;
      mg.imgno:=i;
      mg.imgj:=TJPEGImage.Create;
      mg.imgj.LoadFromFile('img'+IntToStr(i)+'.jpg');
      imgLst.Add(mg);
    end;

  for mg in imgLst do
    begin
      mg.imgj.SaveToFile('nimg'+IntToStr(mg.imgno)+'.jpg');
    end;

  FreeAndNil(imgLst);
end;

Достаточно ли выполнить

 FreeAndNil(imgLst);

для освобождения памяти?

antox,

Нет. Нужно на каждый TJPEGImage.Create сделать Free.

Если бы посмотрели в справку по TList

http://docwiki.embarcadero.com/Libraries/Rio/en/System.Generics.Collections.TList

то узнали бы, что "The class TObjectList inherits from TList and provides an automatic mechanism for freeing objects removed from lists."

X-Cite,

тогдв ему надо будет там не записи хранить, а обьекты, в деструкторе которого освобождать TJPEGImage

А хочется записи

тогда TList, и вручную правильно прибивать поэлементно.

А если сделать

imgLst: TList<Timg>; глобальной

, а потом после проведения всех операций пробежать пробежать и почистить

for i:=0 to imgLst.count-1 do
  begin
     imgLst.items[i].imgj.free;
  end;

imgLst.free;

Так память будет освобождена? И из idbс imgno тоже?

antox,
В записях отсутствуют автоматические деструкторы. Обещали ввести в новых версиях.

antox
А хочется записи

Сделай деструктор автономной функцией, передавай ейуказатель на экземпляр записи, или передавай тлист и индекс записи, вот и все.

А может не засирать мозги себе и другим и всё же использовать классы?