Crear un numero Autoincremental

[[Caral]]

Hola
Pues de igual forma que el otro, pero se hace una comparacion:

Código Delphi [-]
      query1.SQL.Text := 'Select Campo2 From Configuracion';
      query1.Open;
     if query1.Fields[0].Value = DateToStr(DateTimePicker.Date) then
     begin
     ShowMessage('la fecha esta repetida');
     end
     else
     // lo que quieras que haga
    query1.Close;

saludos