代码如下：
TMTcpServer = class(TObject)
idtcpsrvr: TIdTCPServer; //TIdTCPServer组件
idpwtch: TIdIPWatch;
IP: string;
Port: Integer;
constructor create;
end;
constructor TMTcpServer.create;
begin
inherited create;
try
idpwtch := TIdIPWatch.Create(idpwtch);
idtcpsrvr := TIdTCPServer.Create(idtcpsrvr);
idtcpsrvr.OnExecute := idtcpsrvrExecute;
IP := idpwtch.LocalIP;
Port := 50001;
finally
idpwtch.Free;
end;
end;

报错是这样的

运行到idpwtch := TIdIPWatch.Create(idpwtch);时报错

刚开始是
idpwtch := TIdIPWatch.Create(nil);
报错

创建时把自己当成Owner我也是醉了。