CompositeReportで1つ目のレポートし出力されない

こた 2013-03-22 20:13:30 No: 44096

ほとんど使ってる人はいらっしゃらないと思いますが…
以下のようなコードを書いて実行すると、repoContractP1しか出力されません。
色々と検索して、レポートを最初からCreateしたりして試してみたのですが、
結果は同じです。
何か原因として考えられる事はないでしょうか？

procedure TdialogPrintContract.OKButtonClick(Sender: TObject);
begin
repoContractP1 := TrepoContractP1.Create(Self);
repoContractP2 := TrepoContractP2.Create(Self);

  try
    repoContractP1のQueryをオープンするプロシジャ;
    repoContractP2のQueryをオープンするプロシジャ;

ContractQRCompositeReport.Preview;

  finally
    repoContractP1.Free;
    repoContractP2.Free;
  end;

{ ===== Close This Dialog. ===== }
ModalResult := mrOk;
end;

procedure TdialogPrintContract.ContractQRCompositeReportAddReports(
  Sender: TObject);
begin
  with ContractQRCompositeReport do begin
    Reports.Clear;
    Reports.Add(repoContractP1);
    Reports.Add(repoContractP2);
  end;
end;