думаю, что что-то тут не так..
Код:
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;