[ffpereverzev]

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

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

Код:

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 сразу.

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