if key = 13 then
  begin
    if StringGrid.Col < (StringGrid.ColCount - 1) then
    begin
      StringGrid.Col := StringGrid.Col + 1;
    end
    else
    if StringGrid.Row < (StringGrid.RowCount -1) then
    begin
      StringGrid.Col:= StringGrid.FixedCols;
      if StringGrid.Row < (StringGrid.RowCount -1) then
        StringGrid.Row := StringGrid.Row + 1
    end
    else
      Perform(WM_NEXTDLGCTL,0,0);