error al colocar un componente propio a un form

[mauqu]

Este es el código del constructor



Código delphi [-]



constructor TProducto.PanelCreate(Sender:Tcomponent);
begin
inherited Create(Sender);

lEtiqueta:=TLabel.Create(Sender);
lEtiqueta.Caption:=''+#13#10+'';
lEtiqueta.Font.Size:=10;
lEtiqueta.Font.Style:=[fsBold];
lEtiqueta.Top:=0;
lEtiqueta.AutoSize:=false;
lEtiqueta.OnMouseDown:=ShapeMouseDown;
lEtiqueta.Font.Name:='Optima';

sForma:=TShape.Create(Sender);
sForma.Brush.Style:=bsClear;
sForma.Pen.Style:=psClear;
sForma.OnMouseDown:=ShapeMouseDown;

BevelInner:=bvNone;
BevelOuter:=bvNone;
Color:=clWhite;
ParentShowHint:=false;
ShowHint:=true;
AutoSize:=true;
OnMouseDown:=PanelMouseDown;
InsertControl(sForma) ;
InsertControl(lEtiqueta);
end;


saludos.