delphi - Delphi ストリンググリッドを Excel にエクスポート

Question

Delphi 7 の stringgrid から Microsoft Excel にデータをエクスポートしようとしています。私はそれを行うためにこのコードを使用しています:

  objExcel := TExcelApplication.Create(nil);
  objExcel.Visible[LOCALE_USER_DEFAULT] := true;
  objWB := objExcel.workbooks.add(null,LOCALE_USER_DEFAULT);
  lineNumber := 1;

  for i:=1 to stringgrid1.rowcount-1 do begin
    for j:=0 to stringgrid1.ColCount-1 do begin
      objWB.Worksheets.Application.Cells.Item[i+lineNumber,j+1] := ''''+stringgrid1.Cells[j,i];
    end;
  end;

しかし、データが大きい場合、完了するまでに非常に長い時間がかかります。Delphi 7 stringgrid から Excel にデータをエクスポートする他の高速な方法はありますか?