void __fastcall TMainForm::N12Click(TObject *Sender)
{
   dlForm=new TdlForm(this,Database1->DatabaseName);
   dlForm->ShowModal();
   delete dlForm;
}
[C++ Error] main.cpp(277): E2285 Could not find a match for 'TdlForm::TdlForm(TMainForm * const,AnsiString)'

Thanks for your help very much!