Uma soloção usada para um INSERT na tabela

if (DataSet.State <> dsEdit) and (DataSet.State <> dsInsert) then
...

if not (Table.State in [dsInsert,dsEdit]) then
  Table.Insert

procedure T_FORM_OS_BX.Button3Click(Sender: TObject);
begin
    BD_CONTAS_TPA.Post;
    QuickRep3.PrinterSettings.Copies := BD_CONFOSGS_OOC_QDFIO2.value;
    QuickRep3.PrinterSettings.Copies := BD_CONFOSGS_OOC_QDFIO4.value;
    if DBLookupComboBox1.Text = ´´ then
    begin
    Showmessage (´É obrigatório seu prenchimento campo "Responsável"´);
    abort;
  end
    else
    begin
 if MessageDlg(´Deseja dar saída a O.S. do cliente  ´ + _FORM_OS_NAV.BD_OFC_ELEGS_OOE_NOME.Value + ´ ?´,mtConfirmation,[mbYes,mbNo],0)<>mrYes then Abort;
  if BD_CONT_REC.RecordCount <> 0 then
  begin
    if Application.MessageBox(´Já foram geradas parcelas para este documento, deseja imprimi-las?´ , ´Imprimir.´, MB_ICONQUESTION + MB_YESNO) = IDYES then
      QuickRep3.Print;
  end
  else
  begin
    if eddata.Text =´  /  /    ´ then
      Showmessage (´É requerido que o campo data esteja        preenchido´)
    else if Label28.Caption = ´Não´ then
       showmessage(´Atenção !!! Crédito bloqueado.´)
    else
    begin
      if edvalor.text = ´´ then
        GeraErroValorTotal
      else

        Geraparcelas;
    end;
  end;
end;
end;