[Kailon]

А, что в google забанили?

Код:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  If (Key = #13) Then
    With TStringGrid(Sender) Do
      If (Col < ColCount - 1) Then
        Col := Col + 1
      Else If (Row < RowCount - 1) Then
      Begin
        Row := Row + 1;
        Col := FixedCols;
      End;
end;