procedure TForm1.DBGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
with TDbgrid(ActiveControl) do
begin
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1
else
begin
dbgrid1.DataSource.DataSet.Next;
Selectedindex:=0;
end
end;
end;