char* CStr = new char[ADOConnection1->ConnectionString.Length()+ 1 ];
    StrPCopy(CStr, WideToAnsi(ADOConnection1->ConnectionString));
    typedef int (*PEditing)(char*,long int, int, long int);
AnsiString dllSource = ExtractFilePath(Application->ExeName)+ "mas.dll" ;
if (HMODULE masterDll = LoadLibrary(dllSource.c_str()))
    {
       if (PEditing Ed = (PEditing)GetProcAddress(masterDll, "Editing" ))
       {
         t = Ed(CStr, EdKeyTable, EdNewOrChange, EdKeyObject);
       }
       if (!FreeLibrary(masterDll)) MessageDlg( "Неудалось выгрузить библиотеку\" mas.dll\ "." ,mtError, TMsgDlgButtons() << mbOK,  0 );
    }
    else MessageDlg( "Неудалось выгрузить библиотеку \" mas.dll\ "." ,mtError, TMsgDlgButtons() << mbOK,  0 );
    delete[] CStr;

int Editing(const char* ConnString, long int keyTable,int NewOrChange,long int keyObject)
{
   WideString ConnStr;
   ConnStr =ConnString;
   FMaster->ADOConnection1->ConnectionString = ConnStr;
}

if (MyQuery->Active) MyQuery->Active = false;
  MyQuery->SQL->Clear();
  MyQuery->SQL->Add( "select field1,field2 from table1" );

else MessageDlg( "Неудалось загрузить библиотеку \" mas.dll\ "." ,mtError, TMsgDlgButtons() << mbOK,  0 );