WideString s1, s2, s3, s4;
void __fastcall TForm2::Button2Click(TObject *Sender)
{
    if( fReport == NULL )
        fReport = new TfReport(NULL);

    fReport->Show();

  //wReport1.wGetDesigner.Report.Sections("Detail").Controls.Add("DDActiveReports2.XMLDataControl")
  s1 = "Detail";
  s2 = "DDActiveReports2.XMLDataControl";
  Variant designer = fReport->wReport->wGetDesigner();
  PropertyGet Report("Report");
  Variant designer_report = designer.Exec(Report);
  Function Sections("Sections");
  Variant report_sections = designer_report.Exec(Sections);
  Function Item("Item");
  Item << s1.Detach();
  Variant report_section = report_sections.Exec(Item);
  PropertyGet Controls("Controls");
  Variant report_section_controls = report_section.Exec(Controls);
  Function Add("Add");
  Add << s2.Detach();
  Variant xml_control_object = report_section_controls.Exec(Add);
  PropertySet RecordsetPattern("RecordsetPattern");
  s3 = "//ROWDATA/ROW";
  RecordsetPattern << s3.Detach();
  //xml_control_object.Exec(RecordsetPattern);
  PropertySet FileURL("FileURL");
  s4 = "file://s:\\My\\Soft\\ra\\tst.xml";
  FileURL << s4.Detach();
  xml_control_object.Exec(FileURL);
  xml_control_object.Exec(RecordsetPattern);
}