[[Caral]]

Hola
Pues en realidad sigo sin entender.
Veamos:
Tienes una tabla = TtablaBitacora
El código es para que se registre la entrada en esa tabla y muestre el Fprincipal:

Código Delphi [-]
{ esto es innecesario, no veo la razón
DM.Tbitacora.Edit;  
n:=DM.Tbitacora.RecordCount+1;
DM.Tbitacora['CodigoB']:=n;}

DM.TBitacora.Last; // este también lo quitaría, pero no estorba
DM.Tbitacora.Insert;
DM.Tbitacora.FieldByName('CiB').AsInteger:=DM.Tusuario['CiUsuario'];
DM.Tbitacora.FieldByName('NomB').AsString:=DM.Tusuario['NomUsuario'];
DM.Tbitacora.FieldByName('ApePB').AsString:=DM.Tusuario['ApePU'];
DM.Tbitacora.FieldByName('NivelB').AsString:=DM.Tusuario['NivelU'];
DM.Tbitacora.FieldByName('Fec_Ingreso').AsDateTime:=Date;
DM.Tbitacora.FieldByName('Hr_Ingreso').AsDateTime:=Time;
DM.Tbitacora.FieldByName('CodigoU').AsString:=DM.Tusuario['CodigoU'];
DM.Tbitacora.Post;
Fprincipal.Show;

Bien, este codigo inserta la entrada.
Ahora, no veo el interes de que la registre por fecha de ingreso, para eso simplemente se hace una consulta y la muestra por fecha.
Saludos