Asignar los datos, puedes hacerlo con la propiedad Text; Así sólo debes hacer un bucle que recorra las líneas.
Código Delphi
[-]
var
i:Integer;
begin
SG2.RowCount := StringGrid1.RowCount;
SG2.ColCount := StringGrid1.ColCount;
SG2.DefaultRowHeight := StringGrid1.DefaultRowHeight;
for i := 0 to (StringGrid1.ColCount - 1) do begin
SG2.ColWidths[i] := StringGrid1.ColWidths[i];
end;
for i := 0 to (StringGrid1.RowCount - 1) do begin
SG2.Rows[i].Text := StringGrid1.Rows[i].Text;
end;