Ошибка при работе с компонентой

[Нюська]

Текст компоненты:

unit ComboBox1;

interface

uses
SysUtils, Classes, Controls, StdCtrls, forms;

type
TComboBox1 = class(TComboBox)
private

protected
procedure Select; override;
public
constructor Create(AOwner: TComponent); override;
published

end;

var combobox11:tcombobox1;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TComboBox1]);
end;

constructor tComboBox1.Create(AOwner: TComponent);
var i:byte;
form1:tform;
begin
inherited;
form1:= AOwner as tform;
for i:=0 to form1.ComponentCount-1 do
begin
AddItem(form1.Components[i].Name,form1.Components[i]);
end;
end;

procedure TComboBox1.Select;
var obj:TWinControl;
begin
obj:=Items.Objects[ItemIndex] as TWinControl;
obj.Parent:=self;
obj.Visible:= not obj.Visible;
end;

end.

я переопределяю только 2 процедуры родителя.

[Showy]

Конечно же проблема в родителе, т.к. на момент вызова AddItem он не выставлен, Самый простой вариант вынести код

form1:= AOwner as tform;
for i:=0 to form1.ComponentCount-1 do
begin
AddItem(form1.Components[i].Name,form1.Components[i]);
end;

в отдельную процедуру и вручную вызывать её после создания компонента.

[Нюська]

спасибо огромное за помощь!!!