Ожидание загрузки файлов в БД

procedure TfrmMain.btnactNewErrorExecute(Sender: TObject);
var
  NewErrorID, I: Integer;
begin
  frmNewError := TfrmNewError.Create(Self);
  frmNewError.ShowModal;
  if frmNewError.ModalResult = mrOk then
  begin
    if not DM.TDLBase.InTransaction then DM.TDLBase.StartTransaction;
    try
      with DM.qNewError do
      begin
        Active := false;
        ParamByName('UserID').AsInteger := DM.qGetUserID.FieldByName('UserID').AsInteger;
        ParamByName('ProjectID').AsInteger := DM.qProjects.FieldByName('ProjectID').AsInteger;
        ParamByName('DateIn').AsDate := Date;
        ParamByName('Title').AsString := frmNewError.leditTitle.Text;
        ParamByName('Description').AsString := frmNewError.memoDescription.Lines.Text;
        ParamByName('UnitName').AsString := frmNewError.leditUnitName.Text;
        ParamByName('Priority').AsInteger := frmNewError.cbErrorPriority.ItemIndex;
        ExecSQL;
      end;
      DM.GetLastErrorID;
      NewErrorID := DM.qGetLastErrorID.FieldByName('ErrorID').AsInteger;
      if frmNewError.sgridAttachment.RowCount > 1 then
      begin
        with frmNewError.sgridAttachment do
        begin
          for I := 1 to RowCount - 1 do
          begin
            with DM.qNewAttachmentForError do
            begin
              Active := false;
              ParamByName('ErrorID').AsInteger := NewErrorID;
              ParamByName('FileName').AsString := Cells[1,I];
              ParamByName('FileExt').AsString := Cells[2,I];
              ParamByName('FileSize').AsString := Cells[3,I];
              ParamByName('File').LoadFromFile(Cells[0,I], ftBlob);
              ExecSQL;
            end;
          end;
        end;
      end;
      DM.TDLBase.Commit;
      DM.SelectErrorByProjectID(DM.qProjects.FieldByName('ProjectID').AsInteger);
      MessageBox(handle,pchar('Запись добавлена.'),pchar('To-Do List'),64);
    except
      on E : Exception do
      begin
        DM.TDLBase.Rollback;
        MessageBox(handle,pchar('Ошибка при добавлении новой записи.' + #13 + E.Message),pchar('To-Do List'),16);
      end;
    end;
  end;
end;