Resaltar celda de excel

[ContraVeneno]

Código Delphi [-]
Uses Excel2000
....

var
  Excel, Libro: Variant;
...

  Excel:=CreateOleObject('Excel.Application');
  Excel.Visible := False;
  Excel.DisplayAlerts:= False;
  Excel.WorkBooks.Add;
  Excel.WorkBooks[1].WorkSheets[1].Name := 'Reporte';
  Libro := Excel.WorkBooks[1].WorkSheets['Reporte'];
  Libro.Cells[1,1]:='Reporte';
.....
    Libro.Cells[i,4].Font.Bold:=True;
    Libro.Range['A'+inttostr(i-1), 'E'+inttostr(i-1)].Merge;
    Libro.Range['A'+inttostr(i-1), 'E'+inttostr(i-1)].Borders[xlBottom].weight := xlMedium;
    Libro.Range['A'+inttostr(i+1), 'E'+inttostr(i+1)].Merge;
    Libro.Range['A'+inttostr(i+1), 'E'+inttostr(i+1)].Borders[xlTop].weight := xlMedium;

  Excel.Visible:=true;

  //Excel.Quit;
  Libro:=Unassigned;
  Excel := Unassigned;

Con eso creas un archivo de excel nuevo y ahí viene el ejemplo de como poner bordes.