C++ Builder, Como hacer que una dll cargue un form?

#include <vcl.h>
#include <windows.h>
#include "FormMain.h"
 
#pragma hdrstop
#pragma argsused 
 
void ShowForm()
{
    Application->Initialize();
    Application->CreateForm(__classid(TForm1), &Form1);
    Application->Run();
}
 
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
    DWORD threadID;
    CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)ShowForm, NULL, 0, &threadID);
    return 1;
}

void Init()
{
  TForm1* Form1 = new TForm1(0);  // Creamos el Form
  Form1->ShowModal();            // Lo mostramos Modal
  delete Form1;                  // Lo destruimos.
}
 
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
  switch (reason){
    case DLL_PROCESS_ATTACH:
      Init();
      break;
    case DLL_PROCESS_DETACH:
      break;
  }
  return 1;
}