Заполнение StringGrid значениями другого Delphi

[Саюри]

Есть 2 StringGrida. Количество строк и столбцов, и сами значения у первого StringGrid заполняются вручную. Надо сделать так, чтобы после нажатия на кнопку (button) второй StringGrid автоматически заполнился значениями, которые пользователь ввел в первый StringGrid. Помогите пожалуйста.

[phomm]

var
  Col, Row: Integer;
...
for Col := SG1.FixedColCount to SG1.ColCount - 1 do
  for Row := SG1.FixedRowCount to SG1.RowCount - 1 do
    SG2.Cells[Col, Row] := SG2.Cells[Col, Row];

Примерный вариант