insert com query (BDE) - Delphi x Oracle

      Database1.StartTransaction;
      Qry_CadOcorrencia.Close;
      Qry_CadOcorrencia.SQL.Clear;
      SQL := ´Insert into CadOcorrencia (CodOcorrencia, NomeOcorrencia, GrauOcorrencia)´;
      Sql := Sql + ´ Values(:codigo,:nome,:grau)´;
      Qry_CadOcorrencia.SQL.Add(Sql);
      Qry_CadOcorrencia.ParamByName(´codigo´).Value := MaskEdit1.Text;
      Qry_CadOcorrencia.ParamByName(´nome´).Value := Edit2.Text;
      Qry_CadOcorrencia.ParamByName(´grau´).Value := SpinEdit1.Text;
      Qry_CadOcorrencia.Prepare;
      Qry_CadOcorrencia.ExecSQL;
      Database1.Commit;