DLL. Ошибка при Form1.Free

[Roof]

Вызываю из dll форму, созданную, которая строится по рисунку. а когда применяю Form1.Free, то возникает ошибка, причем один раз!
При последующих закрытиях формы и Form1.Free ошибки нет, но все же первый раз она вылазиет всегда!
Выкладываю исходник, подскажите как корректно избавится от ошибки
Project2.dpr - основное приложение. В нем при нажатии на кнопку вызывается форма из dll.
Dop_form1.dpr - библиотека dll.
Unit1.pas - форма, которая компилируется в dll и вызывается из нее.

[Roof]

вопрос решил, было все просто оказываеьтся. вместо Form1.Free
использовал:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

)))))))

[Terran]

Или для того что бы небыло ошибки, в коде dll напиши следующие :

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.FreeOnRelease;
end;

[Roof]

2 Terran ясненька, попробую...))))