vExcel, xlvariant: OLEVariant;

vExcel := CreateOleObject('Excel.Application');
vExcel.Workbooks.Open('BigBook.xls', False);
...
vExcel.Cells[1, 1].Value := 124512;
vExcel.Cells[1, 2].Value := 'С добрым утром';
vExcel.ActiveSheet.Range['B5:B100'].Select;
vExcel.Selection.Columns.AutoFit;
...
xlVariant.ActiveSheet.Range[stRange].Select;
{Левое}
xlVariant.Selection.Borders[7].LineStyle := 1;
xlVariant.Selection.Borders[7].Weight := 2;
xlVariant.Selection.Borders[7].ColorIndex := -4105;
{ВВерх}
xlVariant.Selection.Borders[8].LineStyle := 1;
xlVariant.Selection.Borders[8].Weight := 2;
xlVariant.Selection.Borders[8].ColorIndex := -4105;
{Hиз}
xlVariant.Selection.Borders[9].LineStyle := 1;
xlVariant.Selection.Borders[9].Weight := 2;
xlVariant.Selection.Borders[9].ColorIndex := -4105;
{Правое}
xlVariant.Selection.Borders[10].LineStyle := 1;
xlVariant.Selection.Borders[10].Weight := 2;
xlVariant.Selection.Borders[10].ColorIndex := -4105;
{Вертикаль внутри}
xlVariant.Selection.Borders[11].LineStyle := 1;
xlVariant.Selection.Borders[11].Weight := 2;
xlVariant.Selection.Borders[11].ColorIndex := -4105;
...
try except
end;
...
vExcel.ActiveWorkBook.SaveAs(stNameFile);
vExcel.Visible := True;

xlReport.Report(true);