execute ibeblock
as
begin
  cbb = 'execute ibeblock (LogMessage variant)
         as
         begin
           ibec_progress(LogMessage);
         end';
  SourceDB = ibec_CreateConnection(__ctInterBase, 
                                   'DBName="C:\DB.GDB";
                                   ClientLib=gds32.dll;
                                   User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3');

  ibec_UseConnection(SourceDB);

  for select 'ALTER TABLE ' ||TRIM (rdb$relation_name) || ' DROP CONSTRAINT ' || TRIM(rdb$constraint_name) || ';'
       from rdb$relation_constraints r
      where rdb$constraint_type = 'FOREIGN KEY'
      into :str
  do begin
    str_ALL = COALESCE(STR_ALL, '') || STR;
  end

  try
    ibec_ExecSQLScript(SourceDB, str_ALL, 'ServerVersion=FB25; StopOnError=FALSE', cbb);
  finally
    ibec_CloseConnection(SourceDB);
  end
end;