[alikon1]

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbNext);
end;

Даже если дойти до конца базы, то кнопка все равно остается активной. А как ее сделать не активной, если запись уже последняя?