[roman]

Por otro lado, si la única diferencia entre el insert y el update es el texto del mensaje, no vale la pena distinguir los dos casos. Déjalo así:

Código Delphi [-]
procedure TfPeriodosNominaNvo.cxButton1Click(Sender: TObject);
begin
  if cxComboBox2.Text='' then
    MessageDlg('Falta Ingrsar el Mes', mtError, [mbOK], 0)
  else if (DM.Q_PerNomina.Statein [dsInsert, dsEdit] then
  begin
    DM.Q_PerNomina.FieldByName('PERIODO').AsString := cxTextEdit1.Text;
    DM.Q_PerNomina.FieldByName('MES').AsInteger := cxComboBox2.ItemIndex + 1;
    DM.Q_PerNomina.FieldByName('EJERCICIO').AsString := cxComboBox1.Text;
    DM.Q_PerNomina.Post;
    Application.MessageBox('Datos Guardados Con Exito','Informacion',MB_OK);
    fPeriodosNominaNvo.Close;
  end
end;

LineComment Saludos