Дружба Builder с Access, Word, Excel

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
AnsiString sFile;
sFile = GetCurrentDir()+"\\Шаблон.xlt";
 
 Variant App;
if(!fStart)
 {
 try
 {
App = Variant::CreateObject("Excel.Application");
fStart=true;
 }
 catch(...)
 {
 MessageBox(0, "Не открывается сервер Excel",
 "Внимание", MB_OK);
 return;
 }
 }
 
Variant XLBook = App.OlePropertyGet("WorkBooks");
 
Variant Sh;
Procedure Open("Open");
XLBook.Exec(Open<<sFile);
Sh = XLBook.OlePropertyGet("Count");
Sh = App.OlePropertyGet("WorkSheets",1);
 
App.OlePropertySet("Visible",Variant(true));
 
 
String Str;
String Str2;
String Str3;
String Str4;
String Str5;
String Str6;
String Str7;
String Str8;
 
int index;
int i;
AnsiString ran;
index=4;
Form1->ADOTable1->First();
 for(i=1;i<=Form1->ADOTable1->RecordCount;i++)
{
Str = Form1->ADOTable1->Fields->Fields[0]->AsString;
Str2 = Form1->ADOTable1->Fields->Fields[1]->AsString;
Str3 = Form1->ADOTable1->Fields->Fields[11]->AsString;
Str4 = Form1->ADOTable1->Fields->Fields[4]->AsString;
Str5 = Form1->ADOTable1->Fields->Fields[5]->AsString;
Str6 = Form1->ADOTable1->Fields->Fields[7]->AsString;
Str7 = Form1->ADOTable1->Fields->Fields[12]->AsString;
Str8 = Form1->ADOTable1->Fields->Fields[13]->AsString;
Sh.OlePropertyGet("Cells",index,2).OlePropertySet("Value",Str.c_str());
Sh.OlePropertyGet("Cells",index,3).OlePropertySet("Value",Str2.c_str());
Sh.OlePropertyGet("Cells",index,4).OlePropertySet("Value",Str3.c_str());
Sh.OlePropertyGet("Cells",index,5).OlePropertySet("Value",Str4.c_str());
Sh.OlePropertyGet("Cells",index,6).OlePropertySet("Value",Str5.c_str());
Sh.OlePropertyGet("Cells",index,7).OlePropertySet("Value",Str6.c_str());
Sh.OlePropertyGet("Cells",index,8).OlePropertySet("Value",Str7.c_str());
Sh.OlePropertyGet("Cells",index,9).OlePropertySet("Value",Str8.c_str());
 
ran="B4:I"+IntToStr(index);
Sh.OlePropertyGet("Range",ran.c_str()).OlePropertyGet("Borders",9).
         OlePropertySet("LineStyle",1);
Sh.OlePropertyGet("Range",ran.c_str()).OlePropertyGet("Borders",9).
         OlePropertySet("Weight",2);
Sh.OlePropertyGet("Range",ran.c_str()).OlePropertyGet("Borders",9).
         OlePropertySet("ColorIndex",1);
 
index=index+1;
Form1->ADOTable1->Next();
}
...
}