.
컬럼이 바뀔때 마다 Insert해서 그렇습니다.

with StringGrid1 do
   for i := 1 to RowCount - 1 do
   begin
      Table1.Insert;         // <- StringGrid의 각 Row마다 Table에 Row를 생성해야 합니다.
      for j := 1 to ColCount - 1 do
         Table1[ Cells[ j, i ] ] := Cells[ j, i ];
   end;
.

열씨미 하시구여... C++ Builder도 배워볼만 합니다. ^^;;