Delphi 2010 Professional & Excel 2007 TypeLibrary Probleme

[Cyberaxx]

Hallo

Weder das eine noch das andere mag mein Excel 2007

Die Zelle A2 wird zwar selektiert aber es kommt kein Rahmen.

Wenn ich den Makro Recorder benutze sieht es genau so aus. Egal was ich nutze es taucht nicht in Excel auf.

Code:

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThin
    End With

Delphi-Quellcode:

  Excel.Range['A1:L3'].Select;
  Excel.Selection.Borders[xlDiagonalDown].LineStyle := xlNone;
  Excel.Selection.Borders[xlDiagonalUp].LineStyle := xlNone;
  Excel.Selection.Borders[xlEdgeLeft].LineStyle := xlNone;

  Excel.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous;
  Excel.Selection.Borders[xlEdgeTop].Color := -16777024;
  Excel.Selection.Borders[xlEdgeTop].TintAndShade := 0;
  Excel.Selection.Borders[xlEdgeTop].Weight := xlThin;

Hier passiert ebenfalls nichts weiter als der Range selekt.

// http://www.swissdelphicenter.ch/de/showcode.php?id=156

Das hier hingegen funktioniert ohne Probleme es deckt nur leider nicht alles ab was ich benötige.
Wo steckt hier nur der Fehler?