procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = Word(#13) Then Begin
    If StringGrid1.Col < StringGrid1.ColCount-1 Then
      StringGrid1.Col := StringGrid1.Col 1
    Else Begin
      StringGrid1.Col := StringGrid1.FixedCols ;
      If StringGrid1.Row < StringGrid1.RowCount-1  Then
        StringGrid1.Row := StringGrid1.Row 1 ;
    End;
  End;
end;