stringgrid do stringgrida

jak przepisac całego stringgrida(wszystkie kolumny(text))do 2 stringgrida zeby wszytsko bylo tak samo ulozone i ze by to sie skopiowało gdy klikne na button1

musisz skopiować każdą komórkę wiersza i kolumny do nowej tabeli:

var
i,j : integer;
begin
StringGrid2.RowCount := StringGrid1.RowCount;
StringGrid2.ColCount := StringGrid1.ColCount;

for I := 0 to StringGrid2.RowCount -1 do
begin
for j := 0 to StringGrid2.ColCount - 1 do
begin
StringGrid2.Cells[j,i] := StringGrid1.Cells[j,i];
StringGrid2.ColWidths[j] := StringGrid1.ColWidths[j];
end;
StringGrid2.RowHeights[i] := StringGrid1.RowHeights[j];

end;

pzdr :-)