Мой класс

[SunKnight]

type TNavigate=class
    private
        VARIANT                :array [1..9] of TButton;
    public
        procedure CreateVariant(INX:word);
end;
implementation

procedure TNavigate.CreateVariant(INX:word);
var i:word;
begin
        VARIANT[INX]:=TButton.Create(test);
        VARIANT[INX].Parent:=test.VarBox;
        VARIANT[INX].Name:='N'+inttostr(inx);
end;

Вот создал класс, в нем процедура для создания кнопок, но максимум создается только 4-и буттона (затем вылетает ошибка Access violation), хотя массив описан на 9-ть обьектов. В чем проблема? Может нужно выделять память под обьекты?

[BOBAH13]

А эту строчку

VARIANT[INX].Parent:=test.VarBox;

мы должны сами расшифровать ? Щас я с космосом соединюсь..... p.s. такого стиля оформления кода я еще не видел

[SunKnight]

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

А эту строчку

VARIANT[INX].Parent:=test.VarBox;

мы должны сами расшифровать ? Щас я с космосом соединюсь..... p.s. такого стиля оформления кода я еще не видел

Ну это не столь важно, но все же, производится усыновление БУТТОНА компонентом TScrollBox(он же VarBox).

Оплошность в коде нашел, забыл конструктор вставить.