如何 在stringGrid中使用回车键模拟TAB键切换单元格的功能？

我的GRID1第一列，第一行是固定的。fixedcols=1,fixedrows=1
第一列，我用来做行序号，1 2 3 4 5
下面的代码好像有点问题，但请高手看看，谢谢。


procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
label
nexttab;
begin
if key=#13 then
begin
key:=#0;
nexttab:
if (stringgrid1.Col<stringgrid1.ColCount-1) then
begin
stringgrid1.Col:=stringgrid1.Col+1;
end
else
begin
if stringgrid1.Row>=stringgrid1.RowCount-1 then
stringgrid1.RowCount:=stringgrid1.rowCount+1;
stringgrid1.Row:=stringgrid1.Row+1;
stringgrid1.Cells[0,stringgrid1.Row]:=inttostr(stringgrid1.Row);

stringgrid1.Col:=1; //切换到下一行时，光标不是停在第二列上，而是很快的从第二列调到第三列。


goto nexttab;
end;
end;
end;