type
  MyList<T> = class(List<T>)
  public
    procedure Clear; override;
    begin end;
  end;

begin
end.