[ALexandr555]

у меня не работало

Код:

Dispose(AList[0]);

а вот это вроде да

Код:

  p := PLoadFiles(L.Items[0]);
  Dispose(p);

Код:

 New(p);
  p^.Num:=0;
  p^.NameFile:='hello';

при создании и без ^ нормально