Клонирование формы в Delphi

[apoc]

Есть такое дело.
Есть форма, которую я хочу несколько раз показать в рантайме, тоесть ее только в 4-ех экземплярах.
Сгенерить их мне удалось:

   Events := TUniversal.Create(Self);
   Events.Name := 'Events';
   Tasks := TUniversal.Create(Self);
   Tasks.Name := 'Tasks';

И как бы даже удаеться обращаться к ним по имени.... вот только
при закрытии программы если я создавал больше одного клона... то выдается ошибка... Думал-думал, не могу понять почему... видать вся проблемма во мне... но все же может кто подскажет.
Пасибо...

[dyr_farot]

а память ты где-то освобождаеш?
+ на OnClose / OnCloseQuery ничего не прописанно?

[apoc]

Освобождаю, вот как раз дошел до FormDestroy:

  BmpSkinTop.Destroy;
  BmpSkinBot.Destroy;

скорее всего это оно и есть

[dyr_farot]

эсли это расшаренные переменные -- таки оно...

[apoc]

ну это вообщем для этого юнита что и форма:
BmpSkinTop, BmpSkinBot: TBitmap;

токо я незнаю как их теперь высвободить... ((
или мож и не стоит...

[dyr_farot]

если ты их не создаеш ( Create() ) то и освобождать не нужно

[apoc]

Да но они мне нужны... я их юзаю шутник однако

[dyr_farot]

а при чем тут удаление к использованию?
нужны -- используй...

[apoc]

Ладно, вообщем то что надо было я уже решил, пасибки... Голос от меня...

В процедуре на OnClose динамически создаваемых форм не забудь Action:=caFree;. Наппример:

procedure TfrmImage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
{
    очистка всего, чего надо.
}
end;

[apoc]

Вот как раз когда это я добавил - все и сломалось )))