TCollection und TCollectionItem

[Baeuerle]

Hallo,

ich habe eine Collection un der CollectionItems gespeichert werden. Die Collection soll sortiert sein. Beim tauschen zweier Elemente kommt allerdings eine Fehlermeldung.

Delphi-Quellcode:

type
 TItem = class(TCollectionItem)
 private
  FVar: String;
 public
  property Var: String read FVar write FVar;
 end;

 TMyList = class(TCollection)
 private
  function GetItem(index: Integer): TItem; 
  procedure SetItem(index: Integer; Value: TItem); 
 public
  property Items[index: Integer]: TItem read GetItem write SetItem;default;
 end;

procedure TMyList.SetItem(index: Integer; const Value: TItem);
begin
inherited SetItem(index,Value);
end;

function TMyList.GetItem(index: Integer): TItem;
begin
Result:=inherited GetItem(index) as TItem;
end;

// Anwendung
var buffer: TItem;
buffer:=myList[0];
myList[0]:=myList[1] // FEHLER: TItem kann nicht zu TItem zugewiesen werden????

Warum dieser Fehler??

Danke Baeuerle