var Excel, Libro: Variant;
...
Excel:=CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.DisplayAlerts:= False;
Excel.WorkBooks.Add;
Excel.WorkBooks[1].WorkSheets[1].Name := 'Junio';
Libro := Excel.WorkBooks[1].WorkSheets['Junio'];
Libro.Cells[1,1]:='Reporte Junio';
Libro.Cells[4,1].Font.Bold:=True;
Libro.Range['A4', 'E4'].Merge;
Libro.Range['A4', 'E4'].Borders.weight := -4138;
Libro.Cells[4,5].Borders[xlTop].weight := -4138;
...
Excel.WorkBooks[1].WorkSheets[2].Name := 'Julio';
Libro := Excel.WorkBooks[1].WorkSheets['Julio'];
Libro.Cells[1,1]:='Reporte Julio';
...
Excel.Visible:=true;
Excel := Unassigned;