如何从TStringGrid的内容创建QuickReport

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
begin
  // 将TStringGrid的内容复制到QuickReport中
  for I := 0 to StringGrid1.RowCount - 2 do
  begin
    for J := 0 to StringGrid1.ColCount - 2 do
    begin
      QuickRep1.Data.Cells[J, I] := StringGrid1.Cells[J, I];
    end;
  end;

  // 显示QuickReport
  QuickRep1.Preview;
end;