Application->CreateForm(__classid(TReportDM), &ReportDM);
      ReportDM->ActivateIt(RadioGroup1->ItemIndex);

      AnsiString source;
      source=curdir+"matrix.xls";
      ExcelApplication1->Connect();
      ExcelApplication1->Workbooks->Open(Variant(source));
      ExcelWorkbook1->ConnectTo(ExcelApplication1->ActiveWorkbook);
      ExcelWorksheet1->ConnectTo(ExcelApplication1->ActiveSheet);
      ExcelWorksheet1->set_Visible(LOCALE_USER_DEFAULT, xlSheetVisible);

      AnsiString S1, S2;
      Excel_2k::RangePtr range;
      int x;
      for(x= 0 ; x<ReportDM->ADOQuery1->RecordCount; x++){

         S1="A"+IntToStr(x+ 2 );
         range = ExcelWorksheet1->get_Range(TVariant(S1),TVariant(S1));
         range->set_Value(TVariant(ReportDM->ADOQuery1->Fields->Fields[ 1 ]->AsString));
         range->BorderAround(TVariant( 1 ),xlThin, xlColorIndexAutomatic, TVariant ("Black"));
         range->set_HorizontalAlignment(Variant( 2 ));
         .
         .
         .
         S1="AC"+IntToStr(x+ 2 );
         range = ExcelWorksheet1->get_Range(TVariant(S1),TVariant(S1));
         range->set_Value(TVariant(ReportDM->ADOQuery1->Fields->Fields[ 29 ]->AsString));
         range->BorderAround(Variant( 1 ), xlThin, xlColorIndexAutomatic, Variant ("Black"));
         range->set_HorizontalAlignment(Variant( 2 ));

         S1="AD"+IntToStr(x+ 2 );
         range = ExcelWorksheet1->get_Range(TVariant(S1),TVariant(S1));
         if(ReportDM->ADOQuery1->Fields->Fields[ 30 ]->AsBoolean){
            S2="+";
         }
         else{
            S2="-";
         }
         range->set_Value(TVariant(S2));
         range->BorderAround(Variant( 1 ), xlThin, xlColorIndexAutomatic, Variant ("Black"));
         range->set_HorizontalAlignment(Variant( 3 ));

         S1="AE"+IntToStr(x+ 2 );
         range = ExcelWorksheet1->get_Range(TVariant(S1),TVariant(S1));
         range->set_Value(TVariant(ReportDM->ADOQuery1->Fields->Fields[ 31 ]->AsString));
         range->BorderAround(Variant(xlContinuous), xlThin, xlColorIndexAutomatic, Variant( 1 ));
         range->set_HorizontalAlignment(Variant( 2 ));
         ReportDM->ADOQuery1->Next();
      }
      S1="S"+IntToStr(x+ 2 );

      TSaveDialog *SaveIt=new TSaveDialog(this);
      if(SaveIt->Execute()){
         ExcelWorksheet1->SaveAs(Variant(SaveIt->FileName));
      }
      ExcelWorksheet1->Disconnect();
      ExcelWorkbook1->Disconnect();
      ExcelApplication1->Disconnect();
      delete SaveIt;