with TFIBDATASET.create(fbdb) do
     begin
          database:=fbdb;
          transaction:=TFIBTRANSACTION.create(fbdb);
          transaction.DefaultDatabase:=fbdb;
          transaction.active:=true;
          repeat
                selectsql.clear;
                selectsql.add('delete from modules');
                open;
                close;

                selectsql.LoadFromFile('.\scripts\'+fd.cFileName);
                open;
          until not findnextfile(hf,fd);
          transaction.Commit;
          transaction.free;
          free;
     end;

procedure TfmMain.s_upload;
var
   fd:TWin32FindDataA;
   hf:integer;
begin
     hf:=findfirstfile('.\scripts\*.kbsl',fd);
     if hf=- 1  then
        begin
             windows.findclose(hf);
             showmessage('Can not upload scripts by some strange error.');
             exit;
        end;
     with TFIBDATASET.create(fbdb) do
     begin
          database:=fbdb;
          transaction:=TFIBTRANSACTION.create(fbdb);
          transaction.DefaultDatabase:=fbdb;
          transaction.active:=true;
          repeat
                selectsql.clear;
                selectsql.add('delete from modules');
                open;
                close;

                selectsql.LoadFromFile('.\scripts\'+fd.cFileName);
                open;
          until not findnextfile(hf,fd);
          transaction.Commit;
          transaction.free;
          free;
          windows.findclose(hf);
     end;
end;

insert into modules (module_text, modulename) values ('
<main
!global
  %top_y=0
  %capor=_caporleft
    <record
	$tablename=contact
	$tablekey=contact_id
	$caption=Контакты
	%width=1
	%height=4
	%cellwidth=400
	%cellheight=30
    >
    <frame
	%left=0
	%top=0
	%width=1
	%height=4
	<page
		$caption=
	>
	<field
		$name=contact_address
		$caption=Адрес
		%type=_rt_varchar
		$visible=true
		%width=1
		%height=1
		%left=0
		%top=_top_y
		_top_y=_top_y+_height
	>
    >
>
','contacts')

with transaction do
  if not InTransaction then
    StartTransaction;