Pasar de una Fila a Otra en Un DBGrid al Pulsar Enter

[hondaalberto]

Navegando por la Web me he encontrado el Siguiente procedimiento el cual me funciona para cuando preciono enter el foco va pasando de un columna a otra hasta llegar al final de la línea.

Pero aún me falta que al llegar a la última columna pase a la próxima filla con el foco en la primera columna no que vuelva a la primera columna de la misma fila en la que estoy actualmente navegando.

Aqui les dejo el procedimiento:

Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
{ Manejador del evento OnKeyPress del Form } 
{ También hay que establecer la propiedad KeyPreview del Form a True } 
begin 
  if Key = #13 then                        { si es la tecla  } 
    if not (ActiveControl is TDBGrid) then { si no es un TDBGrid } 
    begin 
      Key := #0;                           { nos comemos la tecla } 
      Perform(WM_NEXTDLGCTL, 0, 0);        { vamos al siguiente control } 
    end 
    else 
      if (ActiveControl is TDBGrid) then   { si es un TDBGrid } 
        with TDBGrid(ActiveControl) do 
          if selectedindex < (fieldcount -1) then 
            selectedindex := selectedindex +1 
          else 
            selectedindex := 0; 
end;

Fuente de los Datos: http://www.terra.es/personal/alksoft...cos/trucos.htm