#pragma argsused

TList *forms = new TList();
extern "C" __declspec( dllexport )  TADOConnection *connection;  //

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
  return 1;
}

extern "C" __declspec(dllexport) WINAPI void FormsListClear()
{
  delete[] forms;
}

extern "C" __declspec(dllexport) WINAPI void setConnection(TADOConnection *connect)
{
  connection = connect;
}

extern "C" __declspec(dllexport) WINAPI void openForm2()
{
  TForm2 *Form2 = new TForm2(NULL);
  //forms->Add(Form2);
  //TDataModule6 *DM = new TDataModule6(NULL);
  Form2->ADOQuery1->Connection = connection;
  //DM->ADOConnection1->ConnectionString = "";
  Form2->ShowModal();
  delete Form2;
}
extern "C" __declspec(dllexport) WINAPI void openForm3()
{
  TForm3 *Form3 = new TForm3(NULL);
  forms->Add(Form3);
  Form3->ShowModal();
  delete Form3;
}
extern "C" __declspec(dllexport) WINAPI void openForm4()
{
  TForm4 *Form4 = new TForm4(NULL);
  forms->Add(Form4);
  Form4->ShowModal();
  delete Form4;
}