Kopiowanie StringGrida

Mam 2 StringGridy w jednym mam dane a do drugiego chce je skopiować jak mam to zrobić?

Pozdrawiam

var i,ii:integer;
begin
  for i:=1 to StringGrid1.ColCount do
  for ii:=1 to StringGrid1.RowCount do
  StringGrid2.Cells[i,ii]:=StringGrid1.Cells[i,ii];
end;

dzięki