Fórum Erro ao carregar um procedimento armazenado #397957

function TGeneralFiles.InsereJus(Tipo_Edicao, Num_Edicao, Num_Pagina, Justificativa: String;
  Data: TDate; ObjConn: TAdoConnection;ObjSp: TADOStoredProc): int64;
begin
  with ObjSp, Parameters do
  begin
    ParamByName('@TIPO_EDICAO').Value := Tipo_Edicao;
    ParamByName('@NUM_EDICAO').Value := Num_Edicao;
    ParamByName('@DATA_EDICAO').Value := Data;
    ParamByName('@NUM_PAGINA').Value := Num_Pagina;
    ParamByName('@JUSTIFICATIVA').Value := Just;
    try
      ExecProc; // Aqui dá o erro citado acima
      Result := ParamByName('@id').Value;
      Commit(ObjConn);
    except
       Rollback(ObjConn);
      raise;
      end;
  end;
end;

procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin
  if PodeInserir then
    FGeneralFiles.InsereJus(edtTipoEdicao.Text,edtNumEdicao.Text,edtNumPagina.Text,FGeneralFiles.Just,edtData.Date,ADOConn,spJus)
  else
    ShowMessage('Alguns campos não foram preenchidos.'+#13+#10+'Favor corrigir o problema e tentar novamente');
end;

procedure TfrmMain.Commit;
begin
  if ADOConn.InTransaction then
    ADOConn.CommitTrans;
   O Rollback tem o rollbacktrans.
end;