execute ibeblock
as
begin
    BaseList='c:\BaseList.sql';
    script_data = ibec_loadfromfile('c:\BaseScript.sql');
    F = ibec_fs_OpenFile(BaseList, __fmOpenRead);
    while (not ibec_fs_Eof(F)) do
    begin
        Base=ibec_fs_Readln(F);
        create connection db dbname :Base
        password '12345' user 'SYSDBA'
        sql_dialect  1 
        clientlib 'c:\windows\system32\gds32.dll';
        use db;
        execute statement script_data;
        commit;
        close connection db;
      end;
    ibec_fs_CloseFile(F);
end;

Base='192.168.1.1:c:\base\main.gdb';