Hola
Con esto se van aumentando en 1 los registros, yo uso un edit y un query asi:
Código Delphi
[-]
AdoQuery1.SQL.Text := 'Select Max(id_Empleado) From Empleado';
AdoQuery1.Open;
Edit1.Text := IntToStr(AdoQuery1.Fields[0].AsInteger+1);
AdoQuery1.Close;
Selecciona el ultimo numero de id, y le suma uno.
Saludos