初始化时有bug。

Forms/ReportManagerFrm.pas

@@ -104,6 +104,7 @@ begin
   TReports(FReports).CategoryList(cbCategory.Items);
   cbCategory.ItemIndex := 0;
   pcReport.ActivePage := tsLocal;
+  pcReport.OnChange(Sender);
 end;
 
 procedure TReportManagerForm.FormDestroy(Sender: TObject);