Вызов других форм из основной формы в DLL

var
  FormFilter: TFormFilter;
// ...
function ShowWindowFiler;
 
begin
 if Assigned(FormFilter) then FormFilter:=TFormFilter.Create(Application.MainForm)
 
        else FormFilter.BringToFront;
 FormFilter.Show;
end;

Application.CreateForm(TFormFilter,FormFilter);

library DllForms;
 
uses
  sharemem,
  windows,
  SysUtils,
  Classes,
  Forms,
  DllFormUnit in 'DllFormUnit.pas' {DllForm},
  Dllform1 in 'Dllform1.pas' {Form1},
  Dllform2 in 'Dllform2.pas' {Form2};
 
{$R *.RES}
 
function ShowForm : Integer; stdcall;
var
        Form : TDllForm;
begin
        Form := TDllForm.Create(Application);
        Result := Form.ShowModal;
        Form.Free;
end;
 
exports
ShowForm;
 
begin
end.

procedure TDllForm.Button1Click(Sender: TObject);
begin
Edit3.Text:=Edit1.Text+Edit2.Text;
end;
 
procedure TDllForm.Button2Click(Sender: TObject);
var
        Form : TForm1;
begin
        Form1.Create(Application);
        Form1.Show;
        Form1.Free;
end;
end.

procedure TDllForm.Button2Click(Sender: TObject);
var
Form : TForm1;
begin
Form1.Create(Application);
Form1.Show;
Form1.Free;
end;

procedure TDllForm.Button2Click(Sender: TObject);
var
Form : TForm1;
begin
Form1:=TForm1.Create(Application);
Form1.Show;
// а в обработчике закрытия формы ты пишеш Action := caFree; 
// но это помоему не обязательно он и так осфободит память
end;

procedure TDllForm.Button2Click(Sender: TObject);
begin
Application.CreateForm(TForm1,Form1);
end;

procedure TDllForm.Button2Click(Sender: TObject);
var
Form : TForm1;
begin
Form1:=TForm1.Create(Application);
Form1.ShowModal;
Form1.free; 
end;