Динамическое создание объектов

[Костян Пират]

Пытаюсь в процессе выполнения программы вывести на экран несколько CheckBox, которые определены в массиве... вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Lbl1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i, qv, qt: integer;
  mrbut: array [1..5] of TRadioButton;
  mcbox: array [1..5] of TCheckBox;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 for i:=1 to qv do
  mcbox[i].Free;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 qv:=3;
 qt:=1;

 case qt of
  1:
   for i:=1 to qv do
     begin
      mcbox[i].Create(Form1);
      mcbox[i].Parent:=Self;
      mcbox[i].Top:=100 + i*30;
      mcbox[i].Left:=50;
     end;
 end;
end;

end.

а это ошибка, которая вырастает при запуске:

[Stilet]

for i:=1 to qv do
     begin
      mcbox[i]:=TCheckBox.Create(Form1);
.............

[_Engine_]

mcbox[i] := TCheckBox.Create(...

[Костян Пират]

ё-моё... реально ступил... где-то это мы читали...
Спасибо!!!!

[Костян Пират]

ладно, с созданием чекбоксов разобрались...
а как поместить их не на форму, а скажем на GroupBox?

[_Engine_]

указать Parent'ом GroupBox

[Костян Пират]

сделал следующее

...
mcbox[i]:=TCheckBox.Create(Form1.GrB1);
...

GrB1 - это мой GroupBox

но выводит всё равно на форму...

[Stilet]

Читай посты внимательнее:

 mcbox[i].Parent:=Form1.GrB1;

[Костян Пират]

а Parent, блин! теперь понял, не дурак
Премного благодарен!

[Dpo6oDyH]

У меня похожее задание, только надо на созданные динамически GroupBox`ы положить созданные таким же образом RadioButton`ы.
Делаю так:
gbox[i]:=TGroupBox.Create(Form3);
gbox[i].Parent:=Self;
gbox[i].Top:=i*110-100;
gbox[i].Left:=10;
rbut[i]:=TRadioButton.Create(gbox[i]);
rbut[i].Parent:=Self;
rbut[i].Top:=10;
rbut[i].Left:=10;
Создается 10 боксов и 1 RadioButton не в боксе. Подскажите как правильно плз.