реестр форм

[bagos]

Народ, я совсем запутался и не пойму что мне надо сделать. Помогите разобраться плиз.
лаба по проге, тема:
Разработка реестра форм. Разработать программу ведения реестра форм и процедуру их регистрации. Для каждой формы проекта поместить процедуру их создания в массив, используя процедурный тип данных, и вызывать на выполнение по требованию.
Разжуйте пожалуйста что мне делать.

[mihali4]

Form2:=TForm2.Create(Application);
Form2.ShowModal;
Form2.Free;

[bagos]

спасибо, но мне не понятно где в данной задаче могут использоваться процедурные типы.

мне прокомментировали так:
1. Создать базовый класс форм, от которых наследовать все создаваемые формы проекта.
2. Предусмотреть возможность автоматической регистрации формы создаваемой в общем реестре форм.
3. Предусмотреть возможность получения списка всех созданных форм, обращения к ним по идентификатору, имени класса, имени формы.
4. Формы должны создаваться извне класса, внешним клиентом.

делаю:

type
  TMyForm = class(TForm)
  public
    mass: array of TForm;
    function AddForm: Integer;
  end;

function TMyForm.AddForm: Integer;
begin
  setlength(mass, length(mass) + 1);
  mass[length(mass) - 1] := TForm.Create(Application);
  result := length(mass) - 1;
end;

создаю свой класс, функция создает форму и закидывает ссылку в массив.

2 пункт не понятен.


4.

var
  newform:TMyForm;
begin
  newform.AddForm;
  newform.mass[length(newform.mass)-1].Show;
end;

но при повторном вызове вылитаю в дебаг