Warum funtioniert dieses abfrage nicht

[Roachford]

Und nochmal für andere Suchende...

Delphi-Quellcode:

type
  TSplashType = ( stBackground, stLabelInfo );
var
  SplashItems: array[TSplashType] of string = ('Background', 'LabelInfo');

...
procedure TWhatever.AddIt;
var
  lCounter: TSplashType;
begin
  ...

  for lCounter := Low(SplashItems) to High(SplashItems) do
     TreeView.Items.AddChildObject(FNode,
                                   SplashItems[lCounter],
                                   pointer(Ord(lCounter)));
end;

@EWeiss: Das befreit dich nicht von dem Rat dringend über die Präfixe bei den Aufzählungen nachzudenken!

Und es ist recht schlechter Stil eine Variable mit einem T vorne zu versehen. Das birgt Verwechslungsgefahr mit Klassen und Typendeklarationen.

Und warum fügst du das Ergebnis von StrToIntDef() der Baumstruktur hinzu? Deine Strings sind alle nicht wandelbar, somit sollte der hinzugefügte Pointer immer NIL sein, bzw. der Integer 0.
Da dies recht sinnlos erscheint, habe ich in dem Beispiel einfach den Ordinalwert des Typs dort mit angehangen.