проверьте пж_ссиваконтейнерный класс на базе динамического ма Опции

[snejinka]

думаю что-то тут не так..

TContainer = class
private
DynArrs : array of TFigure; // закрытое хранилище указателей динамический массив. Компилятор выделяет память только для переменной DynArrs, которая является указателем на будущий массив.
// на графические фигуры;
count : integer; // текущее число объектов в контейнере
capacity: integer;
public
constructor Create;
function GetCount : integer;
function Add (aFig : TFigure; ai : integer) : integer;
function Delete (ai : integer) : integer;
function Search (aFig : TFigure) : integer;
procedure ShowAll;
procedure MoveAll (dx, dy : integer);
procedure FreeAll;
end; 

Добавлено через 1 мин.
контейнерный класс на безе динамического массива..

[TarasBer]

Деструктор нужен, если TFigure - ссылочный тип.