如何检测万网访问本地计算机的某个端口的IP地址?(delphi实现)(200分)

如何检测万网访问本地计算机的某个端口的IP地址?
这个端口是被其他程序占用的,有点类似与防火墙,
谁知道,在此谢谢了,最好提供个类似的代码,

以前作的一个网络验证的程序。

使用的端口映射。

核心代码：

procedure TFrmMain.SetupCheckMode;
begin
if RadioButton1.Checked then
begin
IdMappedPortTCP1.Active :=False;
ServerSocket1.Port :=18080;
ServerSocket1.Open;
RecordLog('己设置为本程序验证方式',clGreen);
end
else
begin
try
ServerSocket1.Close;
IdMappedPortTCP1.DefaultPort :=18080;
IdMappedPortTCP1.MappedHost :=trim(edit5.Text);
IdMappedPortTCP1.MappedPort :=strtoint(trim(edit6.Text));
IdMappedPortTCP1.Active :=true;
RecordLog('己设置为映射到外部网络的验证方法',clGreen);
except
Msgbox('映射不成功，请检查一下，是设置错误或己存在显示的映射','错误',1);
end;
end;
end;

IdMappedPortTCP1控件怎么得到访问者的IP?谁知道,谢谢