Registrar/Visualizar por orden de ingreso la bitacora

[sisne]

Hola!
Por favor ayuda...
Tengo un Form1 donde selecciono el nivel de cargo y su contrañeña antes de ingresar al FormularioPrincipal, si es correcta la contraseña pues seguidamente coloco este codigo para que me registre el NomUsuario, FechaIngreso,HoraIngreso, etc...en cuanto la contrañesa sea correcta.
Tbitacora es donde si visualizará los usuarios que ingresaron al sistema, TBitacora tiene los campos como ser el codigobitacora 1, 2,3,4,...
DM.TBitacora.Last;
DM.Tbitacora.Edit;
DM.Tbitacora.Insert;
n:=DM.Tbitacora.RecordCount+1;
DM.Tbitacora['CodigoB']:=n;
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'];
Fprincipal.Show;
Luego ingreso al sistemaPrincipal normal....pero no me registra los datos en Tbitacora, solo se registra y se actualiza en cuanto ingreso a ese FormBitacora, sino no entrara a ver quienes ingresaron, no lo registra.
El codigo que puse para ver quienes ingresaron al sistema es
procedure TFprincipal.Bitacora1Click(Sender: TObject);
begin
Fbitacora.ShowModal;
end;
Si hago click para ver la bitacora, recien me actualiza y por otra parte me lo ordena por codigoBitacora 1,10,11,12,13,14,15,16,17,18,19,2,20,21,22,23,24,25,26,27,28,29,3,30,31....4,40,41...5,6,7,8,9
Yo quisiera que me aparezca por orden de fecha ingreso, entonces use un Query(TBtablas), donde programe para que saliera en orden de fechaingreso, pero no me actualizaba, ni por mas que haga click en FormBitacora, por lo menos con Tbitacora al hacer click para ver este formbitacora me aparecia aunque sea en ese orde...