Проблема оформления

[SunKnight]

Делаю свой курсачь, создание БД. Но вначале разработки столкнулся с проблемой удобного интерфейса.

У меня в проекте есть главная форма MAIN , а формы с таблицами и запросами находятся в ДЛЛ.
Как сделать так чтобы при вызове формы из ДЛЛ, главная форма удочеряла вызванную форму, т.е. принцип как у MDI проекта, только вызывается один экземпляр формы, а не множество.

[Баламут]

Тут вся фишка в том, что нужно объяснить форме в dll, кому она собственно принадлежит...

Код dll'ки

library Project1;


uses
  Forms,
  SysUtils,
  Classes,
  dllForm in 'dllForm.pas' {frmDLL};

{$R *.res}

function CreateChild(App: TApplication): TForm; stdcall;
begin
Application := App;
frmDLL := TfrmDll.Create(App);
Result := frmDll;
end;

exports CreateChild;

begin
end.

А вот код основной программы..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin;

type
 TCreatePlug = function(App: TApplication): TForm; stdcall;

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    procedure ToolButton1Click(Sender: TObject);
  private
    DH: THandle;
    CreatePlugin: TCreatePlug;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
DH := LoadLibrary('Project1.dll');
@CreatePlugin := GetProcAddress(DH, 'CreateChild');
CreatePlugin(Application);
end;

end.

В самой dll нужно еще предусмотреть фунцию, которая будет правильно уничтожать форму. Application-то мы подменили, а потому нужно вернуть на место.

[SunKnight]

Спасибо очень помогло, только все же как правильно уничтожить форму?

[SunKnight]

все нашел!!!
кому интересно:

//ДЛЛ
var
  Form2: TForm2;
  OldApp:TApplication;
  procedure Init; stdcall;
  procedure Terminate;stdcall;
  procedure Run(app:TApplication);stdcall;
implementation

{$R *.dfm}
//---------
procedure Init; stdcall;//инициализация
begin
OldApp:=Application;//запоминаем старый аплик
form2:=nil;//делает нулевой ссылку на форму плагина.
end;
//---------
procedure Terminate;stdcall;//выгрузка формы
begin
  Form2:=nil;
  Application:=OldApp;
  Form2.Free;
end;
//----------
procedure Run(app:TApplication);stdcall;//запуск формы
begin
        Application := App;
        if form2=nil then Form2 := TForm2.Create(application);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Free;
form2:=nil;
end;