Ja, so kannst du machen was du machen möchtest.
So ersparst du dir das ganze rumcasten außerhalb der Objectliste.
So würden die implementierungen sein:
Delphi-Quellcode:
{ TMyList }
function TMyList.Add(AObject: TMeinObject): Integer;
begin
result:=inherited Add(AObject);
end;
function TMyList.First: TMeinObject;
begin
result:=TMeinObject(Inherited First);
end;
function TMyList.GetItem(Index: Integer): TMeinObject;
begin
result:=TMeinObject(inherited items[index]);
end;
function TMyList.Last: TMeinObject;
begin
result:=TMeinObject(inherited Last);
end;
procedure TMyList.SetItem(Index: Integer; const Value: TMeinObject);
begin
inherited Items[index]:=Value;
end;