[Deman1986]

Описал класс TRam вот так:

Код:

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

подскажите пожалуйста какие переменные использовать вот тут:

Код:

procedure AddSegment () // добавление элементов в список
	procedure DeleteSegment () // удаление элементов из списка
	procedure Search () // поиск сегмента