急！求教：控件里在创建控件时，设计起可见，运行时出错。附代码如下：(100分)

TExStringGrid = class(TStringGrid)
private
fESGPopMenu: TPopupMenu; //想加一个PopupMenu
protected
public
end;

constructor TExStringGrid.Create(AOwner: TComponent);
begin
inherited ;
fESGPopMenu:=TPopupMenu.Create(self);
with fESGPopMenu.Items do
begin
Add(NewLine); // 增加一个分割棒
end;
PopupMenu:=fESGPopMenu;
end;
end;

destructor TEduStringGrid.Destroy;
begin
fESGPopMenu.Free;
inherited Destroy;
end;

我在TStringGrid中加入一个PopupMenu成为一个新的TExStringGrid.
把TExStringGrid拖到窗体上,会创建一个StringGrid和一个PopupMenu.
再拖就出错,不能创建.
并且运行时出错.
如果把PopupMenu删除,运行不出错,但再删除StringGrid时delphiIDE出错.
请问该怎么做啊

看不出有什么问题，建议创建的过程不放在构造函数里

我觉得是创建的PopupMenu重名和创建了多个,但我没法解决.
这个问题解决了,创建这种控件,就没未问题了.

应该不是的，动态创建控件时,多个控件的Name都可以为空，

那你估计是什么问题呢？
看不出有什么问题，建议创建的过程不放在构造函数里
放在哪里好呢

已解决