Crear un numero Autoincremental

[[eduarcol]]

Una pequeña modificacion si carlos me lo permite:

Código Delphi [-]
      query1.SQL.Text := 'Select Count(Campo2) as cuantos From Configuracion where Campo2 = ' + QuotedStr(DateToStr(DateTimePicker.Date));
      query1.Open;
     if query1.FieldbyName(cuantos).AsInteger >0 then
     begin
     ShowMessage('la fecha esta repetida');
     end
     else
     // lo que quieras que haga
    query1.Close;