Ole работа с Excell

#include <vcl.h>
#pragma hdrstop
#include <comobj.hpp>
#include<comobject.h>
#include <utilcls.h>
#include <tchar.h>
 #include <math.h>
#include <malloc.h>
 #pragma package(smart_init)
#pragma resource "*.dfm"
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
Variant mExcel;
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=0; i<=10;i++){
 
mExcel=CreateOleObject("Excel.Application");
mExcel.OlePropertySet("Visible",True);
mExcel.OlePropertyGet("workbooks").OleProcedure("Open","F://ïðîãà666.xls");
mExcel.OlePropertyGet("Cells").OlePropertyGet("SpecialCells",11).OleProcedure("Activate");
double x1,y1;
while ((x1!=0)&&(y1!=0)){
x1= mExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("Cells", i, "A").OlePropertyGet("Value");
 
y1=mExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("Cells", i, "B").OlePropertyGet("Value");
 
}
    double r,nr=0,dr=0;
 
    double sum_y=0,sum_yy=0,sum_xy=0,sum_x=0,sum_xx=0,sum_x2,sum_y2;
    int shech;
    int z=0;
    for(shech=0;shech<=i;shech++)
    {
    double xx=0;
    double yy=0;
   x1= mExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("Cells", i, "A").OlePropertyGet("Value");
y1=mExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("Cells", i, "B").OlePropertyGet("Value");
     xx=x1*x1;
     yy=y1*y1;
 
     sum_x=sum_x+x1;
     sum_y=sum_y+y1;
     sum_xx=sum_xx+xx;
     sum_yy=sum_yy+yy;
     sum_xy=sum_xy+(x1*y1);
 
    nr=nr+(shech*sum_xy)-(sum_x*sum_y);
   sum_x2=sum_x*sum_x;
   sum_y2=sum_y*sum_y;
    dr=sqrt(((shech*sum_xx)-sum_x2)*((shech*sum_yy)-sum_y2));
    r=(nr/dr);
   z=z+24;
Series1->Add(x1,z,clRed);
Series2->Add(y1,z,clGreen);
Series3->Add(r,z,clBlack);
}
}
}