Переход по ячейкам в TStringGrid по клавиши Enter как по Tab

Оформил: DeeCo

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then
     with StringGrid1 do
       if Col then {next column}
         Col := Col + 1
     else if Row then
     begin {next Row}
       Row := Row + 1;
       Col := 1;
     end
      else
     begin {End of Grid- Go to Top again}
       Row := 1;
       Col := 1;
     end;
 end;