Autoavanzar celdas en un grid

[*Caro*]

Hola GustavoCruz, en un StringGrid podrías hacer algo como esto:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   With StringGrid1 do
    if (Col=ColCount-1) and (Row<RowCount-1) then
     begin
      Row := Row+1;
      Col := 1;
     end
    else
     if Col<ColCount-1 then
      Col := Col+1;
  end;
end;

Saluditos