Da ist glaube der Hund begraben:
Delphi-Quellcode:
procedure TExtendedItems.SetItem(index: integer; const Value: TExtendedItem);
begin
Inherited SetItem(index,value);
end;
sicher, dass du HIER ein inherited willst?
PS:
ja.. nee... klar willst du das... ach menno... ich find jedenfalls nix... sorry.