Вот получилось как то так))
Код:
класс TSomeMemory
type
TSomeMemory = class(TObjectList)
Private
// поля
function GetItems (Index: integer): TSegment;
procedure SetItems(Index: Integer; const Value: TSegment);
public
property Items[Index: Integer]: TSegment read GetItems write SetItems; default;
//чтение элементов списка будет происходить через метод GetItems,
//а запись - через SetItems
// методы
function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string
WinVers = 'Software\Microsoft\Windows\CurrentVersion' // читаем всё из реестра