void __fastcall TfrmMain::MenuBuild()
{
 int i;
 TMenuItem  *miReports(NULL);
 TComponent *Component(NULL);
 TLocateOptions loOptions;
 HINSTANCE hInst;

 slDll = new TStringList;
 loOptions<<loCaseInsensitive;

 if( slDll )
  {
   SearchPlugins(slDll, asStartDir + "plugins\\" );
   if( slDll->Count >  0  )
    {
     for( i =  0 ; i < slDll->Count; i++)
      {
         if( fdsGrants->Locate("DLL", ExtractFileName( slDll->Strings ), loOptions) )
          {
           hInst = LoadLibrary( slDll->Strings[i].c_str() );

           vDeleteForm.push_back( (LPDELETEINNERFORM)GetProcAddress( hInst, "_DeleteInnerForm") );
           SetPluginMenu   = (LPSETPLUGINMENU)GetProcAddress( hInst, "_SetPluginMenu");

           Component = frmMain->FindComponent( fdsGrants->FBN("MOWNER")->AsString );
           miReports = dynamic_cast<TMenuItem*>(Component);

           if( miReports && SetPluginMenu )
            SetPluginMenu( Application, miReports, dmMain->fdbMain,  1  );
          } //if( fdsGrants->Locate("DLL", ExtractFileName( slDll->Strings[i] ), loOptions) )
      }
    } //if( slDll->Count >  0  )
   delete slDll;
  }
}