Delphi-Quellcode:
function TExtendedItems.GetItem(index: integer): TExtendedItem;
begin
result := TExtendedItem(inherited GetItem(index));
end;
procedure TExtendedItems.SetItem(index: integer; const Value: TExtendedItem);
begin
Inherited SetItem(index,value);
end;
hm...das mit D7 ist ne gute Idee.