: procedure TForm1.BtnInputClick(Sender: TObject);
: var
:     i,j,Count:Integer;
:     MunJaYul:String;
:
: begin
:     Count:=1;
:     With StringGrid1 do
:      for i:=0 to RowCount-1 do
:        for j:=0 to ColCount-1 do
:         begin
:           RowHeight[i]:=30;  //cell 높이 조정
:           ColWidths[j]:=120; //cell 폭 조정
:           Inc(Count);        //Count 증가
:           MunJaYul:='델파이 프로그래밍' + IntToStr(Count);
:           Cells[i,j]:=MunJaYul; //각 셀에 문자열 + Count 삽입
:         end;
: end;
:

자세히는 살피지 않았고요...얼핏보니
위의 소스내용을 아래와 같이 할면 될 것 같습니다.

:     With StringGrid1 do
      begin <--- 첨가
:      for i:=0 to RowCount-1 do
:        for j:=0 to ColCount-1 do
:         begin
:           RowHeight[i]:=30;  //cell 높이 조정
:           ColWidths[j]:=120; //cell 폭 조정
:           Inc(Count);        //Count 증가
:           MunJaYul:='델파이 프로그래밍' + IntToStr(Count);
:           Cells[i,j]:=MunJaYul; //각 셀에 문자열 + Count 삽입
:         end;
      end;  <--- 첨가