[ffpereverzev]

Здравствуйте, уважаемые форумчане!

Помогите, пожалуйста, с такой проблемой. Не работает следующий код (Начал разбираться с работой массивов):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Menus, ComCtrls;   type   TForm1 = class(TForm)     PNR_work: TPageControl;     TabSheet1: TTabSheet;     TabSheet2: TTabSheet;     Label1: TLabel;     ComboBox1: TComboBox;     RichEdit1: TRichEdit;     RichEdit2: TRichEdit;     RichEdit3: TRichEdit;     RichEdit4: TRichEdit;     RichEdit5: TRichEdit;     RichEdit6: TRichEdit;     RichEdit7: TRichEdit;     RichEdit8: TRichEdit;     RichEdit9: TRichEdit;     RichEdit10: TRichEdit;     RichEdit11: TRichEdit;     RichEdit12: TRichEdit;     RichEdit13: TRichEdit;     RichEdit14: TRichEdit;     RichEdit15: TRichEdit;     RichEdit16: TRichEdit;     Label2: TLabel;     procedure FormCreate(Sender: TObject);     procedure ComboBox1Change(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   RichEdit: array[1..16] of TRichEdit;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject);   var      i : byte;   begin     for i:=1 to High(RichEdit) do       begin         RichEdit[i] := TRichEdit.Create(Self); // <имя массива>[i]:=<имя класса>.Create(Self);         RichEdit[i].Parent := Self; // <имя массива>[i].Parent:=Self; //за объект ответит форма, на которой он создан         // Эти две строки создают компонент, далее произвольные действия         RichEdit[i].Visible := False;       end;   end;

Необходимо сделать так, чтобы при создании формы все компоненты TRichEdit изменили свойство "Visible" с "True" на "False". Далее, в зависимости от того, что будет выбрано в TComboBox, компоненты TRichEdit будут изменять свойство "Visible" с "False" на "True". На данный момент при создании формы на ней появляются все компоненты TRichEdit сразу.

Заранее спасибо за ответ!