Can you make linking Tobject to TAdvListValue

VCL VCL Feature Requests
1

TAdvListValue = class(TCollectionItem)
private
FTag: integer;
FValue: string;
FDisplayText: string;
FImageIndex: integer;
==> fItem : pointer;
procedure SetDisplayText(const AValue: string);
procedure SetValue(const AValue: string);
procedure SetImageIndex(const Value: integer);
protected
procedure Changed; virtual;
function GetWidth(Canvas: TCanvas): integer;
public
==> property Item : pointer read fItem write fItem default nil;
constructor Create(Collection: TCollection); override;
procedure Assign(Source: TPersistent); override;
published
property DisplayText: string read FDisplayText write SetDisplayText;
property ImageIndex: integer read FImageIndex write SetImageIndex default -1;
property Value: string read FValue write SetValue;
property Tag: integer read FTag write FTag default 0;
end;

2

This feature was implemented.