DbAdvGrid: после добавления новой записи перенести указатель на новую запись

//планируем для выбранного сотрудника
//выбираем сотрудника для планирования по id-шнику
  idSotrudnik := DBComboBox4.Text;
  ready := false;
 
  if idSotrudnik <> '' then
    if (DBCombobox5.Text <> '') or (Edit25.Text <> '') then
      if Memo2.Text <> '' then ready := true;
  if ready = false then begin showmessage('Не все заполнили. Проверьте.'); exit; end;
 
  if permit(PlannerCalendar1.Date) = 1 then
    begin
      MessageBox(Handle,'Дата планирования не верна. Выбирайте дату планирования начиная с текущей и позже.','Табель',MB_OK);
      exit;
    end;
 
//------------------------------------------------------------------------------
//проверяем заполнял ли пользователь новую причину
  check_sprav := 0;
  idPrichina := '';
  if (CheckBox21.Checked = true) and (Edit25.Text <> '') then
    begin
      ADOStoredProc38.Parameters.Parambyname('@NamePlace').Value := Edit25.Text;
      ADOStoredProc38.ExecProc;
 
//проверяем есть ли такая причина в справочнике
      check_sprav := ADOStoredProc38.Parameters.Parambyname('@RETURN_VALUE').Value;
      if check_sprav = 1 then
        MessageBox(Handle,'Такая причина уже есть. Проверьте еще раз.','Планирование',MB_OK)
      else naznach := Edit25.Text;
    end;
//------------------------------------------------------------------------------
 
  if check_sprav = 0 then
    begin
      idPrichina := DBComboBox5.Text;
      ADOStoredProc14.Parameters.Parambyname('@Prichina').Value := Get_Id(idPrichina);
      naznach := Get_Text(idPrichina);
    end;
 
  if (check_sprav <> 0) and (check_sprav <> 1) then
    ADOStoredProc14.Parameters.Parambyname('@Prichina').Value := check_sprav;
 
 
    begin
      ADOStoredProc14.Parameters.Parambyname('@Vremya_begin').Value := DateTimePicker1.Time;
      ADOStoredProc14.Parameters.Parambyname('@Vremya_end').Value := DateTimePicker2.Time;
      ADOStoredProc14.Parameters.Parambyname('@DatePlan').Value := PlannerCalendar1.Date;
      ADOStoredProc14.Parameters.Parambyname('@idSotrudnik').Value := Get_Id(idSotrudnik);
      ADOStoredProc14.Parameters.Parambyname('@Target').Value := Memo2.Text;
      ADOStoredProc14.ExecProc;
    end;
//------------------------------------------------------------------------------
//отображаем запланированное и все его записи
  ADOStoredProc15.Parameters.Parambyname('@idSotrudnik').Value := Get_Id(idSotrudnik);
  ADOStoredProc15.ExecProc;
 
  DataSource12.DataSet.Close;
  DataSource12.DataSet.Open;
 
  DBAdvGrid1.Clear;
  DBAdvGrid1.ColWidths[1] := 117;
  DBAdvGrid1.ColWidths[2] := 64;
  DBAdvGrid1.ColWidths[3] := 64;
  DBAdvGrid1.ColWidths[4] := 300;
  DBAdvGrid1.ColWidths[5] := 560;
  DBAdvGrid1.Columns[1].HeaderFont.Color := $00723708;
  DBAdvGrid1.Columns[2].HeaderFont.Color := $00723708;
  DBAdvGrid1.Columns[3].HeaderFont.Color := $00723708;
  DBAdvGrid1.Columns[4].HeaderFont.Color := $00723708;
  DBAdvGrid1.Columns[5].HeaderFont.Color := $00723708;
  DBAdvGrid1.Columns[1].Header := 'Дата';
  DBAdvGrid1.Columns[2].Header := 'С';
  DBAdvGrid1.Columns[3].Header := 'По';
  DBAdvGrid1.Columns[4].Header := 'Пункт назначения';
  DBAdvGrid1.Columns[5].Header := 'Цель выбытия';
 
  i := 0;
  while not ADOStoredProc15.eof do
    begin
      inc(i);
      DBAdvGrid1.Cells[1,i] := ADOStoredProc15.FieldByName('Data_Plan').AsString;
//      DBAdvGrid1.Cells[2,i] := ADOStoredProc15.FieldByName('Vremya_Begin').AsString;
      DBAdvGrid1.Cells[2,i] := ADOStoredProc15.Fields[2].AsString;
//      DBAdvGrid1.Cells[3,i] := ADOStoredProc15.FieldByName('Vremya_End').AsString;
      DBAdvGrid1.Cells[3,i] := ADOStoredProc15.Fields[3].AsString;
      DBAdvGrid1.Cells[4,i] := ADOStoredProc15.FieldByName('NamePlace').AsString;
      DBAdvGrid1.Cells[5,i] := ADOStoredProc15.FieldByName('Target').AsString;
      ADOStoredproc15.Next;
    end;
//------------------------------------------------------------------------------

Form1.ADOQuery.First;

Form1.ADOQuery.Insert;

Form1.ADOQuery.Post;