function ExecuteIBEScript(aScriptText: string; aIBEBlockProgress: TIBEBlockProgress = nil; aIBEHandleError: TIBEHandleError = nil): Boolean;
var
  IBEHandle: THandle;
  ESP: TExecuteScriptProc2;
begin
  Result := False;
  IBEBlockProgress := aIBEBlockProgress;
  IBEHandleError := aIBEHandleError;
  IBEHandle := LoadLibrary(cIBESCRIPT_DLL);
  try
    if IBEHandle > HINSTANCE_ERROR then
    begin
      ESP := GetProcAddress(IBEHandle, 'ExecScriptText2');
      if @ESP <> nil then
        ESP(PAnsiChar(AnsiString(aScriptText)), @HandleError, @BeforeExec, @AfterExec, @BlockProgress);
      Result := True;
    end;
  finally
    if IBEHandle > HINSTANCE_ERROR then
      FreeLibrary(IBEHandle);
  end;
end;

execute ibeblock  as  
begin
  
cbb = 'execute ibeblock (LogMessage variant)
as 
begin 
ibec_progress(LogMessage); 
end';  

SourceDB = ibec_CreateConnection(__ctInterBase,
'DBName="SERV1:DB_1"; ClientLib=fbclient.dll; User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3');
TargetDB = ibec_CreateConnection(__ctInterBase,
'DBName="SERV2:DB_2"; ClientLib=fbclient.dll; User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3');   

try
  ibec_CompareMetadata(SourceDB, TargetDB, 'd:\test.txt', 'ServerVersion=FB25; OmitDescriptions; IgnoreIBEObjects; DescriptionMode=COMMENT', cbb);
finally
  ibec_CloseConnection(TargetDB);
  ibec_CloseConnection(SourceDB);
end;  
end;

execute ibeblock  as  
begin
  {Вот сюда добавляем строчку}
  ibec_SetEnvironmentVariable('IBECallFBShutdown', FALSE);
  {Далее без изменений}
cbb = 'execute ibeblock (LogMessage variant)
as 
begin 
ibec_progress(LogMessage); 
end';  

SourceDB = ibec_CreateConnection(__ctInterBase,
'DBName="SERV1:DB_1"; ClientLib=fbclient.dll; User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3');
TargetDB = ibec_CreateConnection(__ctInterBase,
'DBName="SERV2:DB_2"; ClientLib=fbclient.dll; User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3');   

try
  ibec_CompareMetadata(SourceDB, TargetDB, 'd:\test.txt', 'ServerVersion=FB25; OmitDescriptions; IgnoreIBEObjects; DescriptionMode=COMMENT', cbb);
finally
  ibec_CloseConnection(TargetDB);
  ibec_CloseConnection(SourceDB);
end;  
end;