Resposta

Olha vc pode colocar assim

if key=VK_Return then // se enter foi teclado
begin
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1; avança +1 coluna
end;

if DBGrid1.SelectedIndex = 2 then {quantidade de campos}
begin
DBGrid1.SelectedIndex := 1;
Tabela.Next; {ou insert}
end;