Перевод кода с Delphi на C++ Builder

var
 XLApp,Sheet,Colum:Variant;
 index,i:Integer;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Школа-Ученики';
 Colum:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'].Columns;
 Colum.Columns[1].ColumnWidth:=20;
 Colum.Columns[2].ColumnWidth:=20;
 Colum.Columns[3].ColumnWidth:=20;
 Colum.Columns[4].ColumnWidth:=20;
 Colum.Columns[5].ColumnWidth:=20;
 
 Colum:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'].Rows;
 Colum.Rows[2].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clBlack;
 Colum.Rows[1].Font.Size:=14;
 
 Sheet:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'];
 Sheet.Cells[1,2]:='Школа';
 Sheet.Cells[2,1]:='Фамилия';
 Sheet.Cells[2,2]:='Имя';
 Sheet.Cells[2,3]:='Класс';
 Sheet.Cells[2,4]:='Адрес';
 Sheet.Cells[2,5]:='Телефон';
 
 index:=3;
 DataModule1.StudentTable.First;
for i:=0 to DataModule1.StudentTable.RecordCount-1 do
 begin
   Sheet.Cells[index,1]:=DataModule1.StudentTable.Fields.Fields[1].AsString;
   Sheet.Cells[index,2]:=DataModule1.StudentTable.Fields.Fields[2].AsString;
   Sheet.Cells[index,3]:=DataModule1.StudentTable.Fields.Fields[3].AsString;
   Sheet.Cells[index,4]:=DataModule1.StudentTable.Fields.Fields[5].AsString;
   Sheet.Cells[index,5]:=DataModule1.StudentTable.Fields.Fields[4].AsString;
   Inc(index);
   DataModule1.StudentTable.Next;
 end;