Подкорректирова tList

[Altera]

Все привет!
Такой вопрос:
Есть (будет) myList: tList и указателями на структуры, ну типа:

type
   pMyRec = ^tMyRec;
   tMyRec = record
      intValue: integer;
      boolValue: boolean;
      strValue: string;
   end;

Немного западло постоянно писать:
tMyRec(myList.items[X]^).intValue := random($FFFFFE)+1;
или
tMyRec(myList.items[X]).intValue := random($FFFFFE)+1;

Хорошо было бы, если можно было-бы переделать tList так, что-бы он содержал не просто pointer-ы, а pMyRec-ы.

Я посмотрел на tObjectList (юнит Contnrs), так там целая куча функций объявлена заного и перекрывает унаследованные от tList

TObjectList = class(TList)
  private
    FOwnsObjects: Boolean;
  protected
    procedure Notify(Ptr: Pointer; Action: TListNotification); override;
    function GetItem(Index: Integer): TObject;
    procedure SetItem(Index: Integer; AObject: TObject);
  public
    constructor Create; overload;
    constructor Create(AOwnsObjects: Boolean); overload;

    function Add(AObject: TObject): Integer;
    function Extract(Item: TObject): TObject;
    function Remove(AObject: TObject): Integer;
    function IndexOf(AObject: TObject): Integer;
    function FindInstanceOf(AClass: TClass; AExact: Boolean = True; AStartAt: Integer = 0): Integer;
    procedure Insert(Index: Integer; AObject: TObject);
    function First: TObject;
    function Last: TObject;
    property OwnsObjects: Boolean read FOwnsObjects write FOwnsObjects;
    property Items[Index: Integer]: TObject read GetItem write SetItem; default;
  end;

А мне понадобятся листы на разные указатели. Что, мне несколько раз такую структуру объявлять?

[Stilet]

Обычно в таком случае делают новый класс, наследующий TList, но переопределяют нужные его свойства.

[Altera]

Сообщение от Stilet

Обычно в таком случае делают новый класс, наследующий TList, но переопределяют нужные его свойства.

Да уж, этого я и боялся...............
Придётся писать
pMyRec(myList.items[X]).intValue := random($FFFFFE)+1;