Foros Club Delphi - Incrementar un cxTextEdit a travez de los items de un cxCombobox

Buenos dias tengo una duda compañeros como el titulo lo dice quiero saber como incrementar un edit les explico
tengo dos ventanas

ventana 1
tiene el grid y botones de nuevo, modificar y eliminar
ventana 2
tiene el cxCombobox y un cxTextEdit

y una base de datos en sql con los campos "EJERCICIO" que es el cxComboBox y el "PERIODO" que es el cxTextEdit

lo que tiene el combobox son años (2014, 2015, 2016 ) que se obtienen del campo de otra tabla por medio de este codigo:

Código Delphi [-]  With
    msqry1 do
    begin
      While not eof do
      begin
       if
          cxComboBox1.Properties.Items.IndexOf(FieldByName('Ejercicio').AsString)=-1
       then
          cxComboBox1.Properties.Items.Add(FieldByName('Ejercicio').AsString);
       Next;
      end;
    end;

lo que nececito saber es como incrementar el cxTextEdit en 1 cada ves que voy a crear un nuevo registro.

POR EJEMPLO:
si pongo en el combobox el año 2015 y existe el periodo 1 y 2 en automatico me lanze el numero 3 dentro del cxTextEdital momento de crear un nuevo registro
si pongo en el combobox el año 2014 y existe el periodo 1, 2 y 3 en automatico me lanze el numer 4 dentro del cxTexEdit al momento de crear un nuevo registro
etc.

espero y me hayan entnendido. si se les ocurre una solucion seria de gran ayuda:confused::confused:
gracias!!