안녕하세요. 최용일입니다.

스트링그리드의 OnKeyDown이벤트에서 아래와 같이 코딩해보세요...

참고로 Sender파라매터를 사용하시면 여러개의 컴포넌트에 동일한 이벤트를 설정해서 똑같은 효과를 줄 수 있습니다...

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var
    IsLastCol, IsLastRow: Boolean;
begin
    if Key = Char(vk_Return) then
    begin
        Key := #0;
        IsLastCol := (TStringGrid(Sender).Col = (TStringGrid(Sender).ColCount - 1));
        IsLastRow := (TStringGrid(Sender).Row = TStringGrid(Sender).RowCount - 1);
        if IsLastCol and IsLastRow then // 마지막 셀일때
        begin
            TStringGrid(Sender).RowCount := TStringGrid(Sender).RowCount + 1;

            TStringGrid(Sender).Col := 0;
            TStringGrid(Sender).Row := TStringGrid(Sender).Row + 1;
        end
        else if IsLastCol then // 마지막 컬럼일때
        begin
            TStringGrid(Sender).Col := 0;
            TStringGrid(Sender).Row := TStringGrid(Sender).Row + 1;
        end
        else
        begin
            TStringGrid(Sender).Col := TStringGrid(Sender).Col + 1;
        end;
    end;
end;

^^ 항상 즐코하세요...