Здравствуйте, Аноним, Вы писали:

А>procedure FreeContainer(const I: Integer);
А>begin
PContainer(I)^.AName := '';
А> FreeMem(PContainer(I));
А>end;

FreeMem не освобождает строку в структуре