Berlin: TListViewItem Parent?

[greenmile]

Hallo,

ich muss zur Laufzeit den Parent eines TListViewItem's vergleichen, blöderweise hat ein TListViewItem unter Berlin keine .Parent Eigenschaft mehr. Oder habe ich etwas übersehen? Momentan löse ich es so, aber vielleicht gibt es etwas ab Werk? Und wieso verschwindet so eine meiner Meinung nach wichtige Eigenschaft einfach so aus?

Code:

  Function GetParent(const AListItem: TListViewItem): TListview;
    var Count, Count2: Integer;
  begin
    Result := nil;
    for Count := 0 to Self.ComponentCount-1 do begin
      if not(Self.Components[Count] is TListview) then Continue;
      for Count2 := 0 to TListView(Self.Components[Count]).Items.Count-1 do begin
        if (TListView(Self.Components[Count]).Items[Count2]=AListItem) then begin
          Result := TListView(Self.Components[Count]);
          Break;
        end;
      end;
    end;
  end;