为什么Create里的代码不执行？关于TIdTCPClient的

Question

TTCPClientEx = class(TIdTCPClient)
  private
    { Private declarations }
  protected
    { Protected declarations }
     public
    { Public declarations }
    constructor Create(AOwner: TComponent;IP:String;nPort:Integer); overload;
    destructor Destroy;override;
....
destructor TTCPClientEx.Destroy ;
begin
   inherited Destroy;
end;
constructor TTCPClientEx.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
//这里的代码不能执行？？？ 
   Host := IP;
   Port := nPort;
end;

Answer 1

原因查明了，原来代码是要在运行状态运行Create(IP,PORT)时才会运行。
还有个问题，为什么TIdTCPClient的Create方法不能override呢？

Answer 2

父类的声明不是虚函数，所以不能override。

Answer 3

如果我想在我的控件在Create的执行一些初始化的操作。
例如FReadStream:=TMemoryStream.Create;
..
这些代码应该如何操作啊。