Данные не добавляются в таблицу

[Dozent]

Добрый день, есть таблица

CREATE TABLE EATTACH (
ID_ATT INTEGER NOT NULL,
ID_MAIL INTEGER,
PATH VARCHAR(255)
);

вот выполяемый код, в аттач компанента пути добавляются кнопкой прикрепит ьи пользователь выделяет каждый файл отдельно.
Код выполняется без ошибок но данные в таблицу не записываются, почему?

 with DM.EFIZEDIT do
    begin
     DM.EFIZ.First;
     for i:=1 to DM.EFIZ.RecordCount do
         begin
          SQL.Text:='execute procedure PROC_INS_EMAIL (:id_mail, :id_cl, :id_org, :data, :email, :text, :status)';
          ParamByName('id_mail').AsInteger:=-1;
          ParamByName('id_cl').AsInteger:=DM.EFIZ.FieldbyName('ID_CL').AsInteger;
          ParamByName('id_org').AsInteger:=0;// ò.ê. äîáàâëÿåì ðàññûëêó ïî ôèç ëèöó
          ParamByName('data').AsDate:=Date;
          ParamByName('email').AsString:=DM.EFIZ.FieldbyName('EMAIL').AsString;
          ParamByName('text').AsString:=Memo1.Text;
          ParamByName('status').AsInteger:=0;
          Transaction.StartTransaction;
          ExecSQL;
          gl_id_mail:=Current.ByName('RET_ID_MAIL').AsInteger;
          Transaction.Commit;
         // Transaction.Active:=false;
          with DM.IBATT do //äîáàâëÿåì ôàéëû äëÿ ðàññûëêè
            begin
             // SQL.Text:='execute procedure PROC_INS_EMAIL_ATT (:id_att, :id_mail, :path)';
              For j:=0 to DM.GMail.AttachFiles.Count-1 do
                  begin
                   SQL.Text:='execute PROC_INS_EMAIL_ATT (:id_att, :id_mail, :path)';
                   ParamByName('id_att').AsInteger:= -1;
                   ParamByName('id_mail').AsInteger:=gl_id_mail;
                   ParamByName('path').AsString:=DM.GMail.AttachFiles.Strings[j];
                   Transaction.StartTransaction;
                   Transaction.Commit;
//                   ShowMessage(DM.GMail.AttachFiles.Strings[j]);
                  end;
            end;
           DM.EFIZ.Next;
         end;
    end;

А забыл ешё

create or alter procedure PROC_INS_EMAIL_ATT (
    FIN_ID_ATT integer,
    FIN_ID_MAIL integer,
    FIN_PATH varchar(255))
as
begin
 if (:fin_id_att < 0 ) then
 begin
   insert into eattach (id_mail, path)
   values (:fin_id_att,:fin_path);
 end
 else
 begin
    update
        eattach
    set
     id_mail = :fin_id_mail ,
     path = :fin_path
    where
     id_att = :fin_id_att;
 end
end

[Dozent]

Госпади, какой великолепный дурак!!! Забыл выполнить запрос....

[Аватар]

Самокритика достигла апогея