Itens no DBGrid

if Key=#13 then
  Begin
    If DbGrid1.SelectedIndex<>4 Then//Verifico se o cursor está na última coluna da minha Grid, caso esteja passo para a próxima coluna...
      Begin
       DbGrid1.SelectedIndex:=DbGrid1.SelectedIndex+1;
      end
    Else //senão
      Begin
        if (DbGrid1.SelectedIndex=4)and(TbItens.Eof) then//se estiver na última coluna do meu grid e for o final da minha tabela, insiro um novo registro e posiciono o cursor na primeira coluna
          Begin
            TbItens.Append;
            DbGrid1.SelectedIndex:=0;
          End
       Else//caso contrário passo para o próximo registro
          Begin
            TbItens.Next;
            DbGrid1.SelectedIndex:=0;
          End;
      End;
  End;