Вот описал я класс TRam (массив для сегментов):
Код:
класс TRam
type
TRam = class(TObject)
private
// поля
FRam: Array of TSegment; // динамический массив
FCount: real; // приватное поле, количество сегментов
// конструкторы и деструкторы
constructor Create (ACount: integer); // инициализация
destructor Destroy; override;
// методы
procedure SetCount (ACount: integer): // установка количества элементов
procedure Reset; // обнуление данных
function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string;
WinVers = 'Software\Microsoft\Windows\CurrentVersion' // читаем всё из реестра
end;