呵呵。好，换。说换就换：使用 Delphi 7 的 internet 中的 TcpClient 控件(其他也类似)。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets;
type
TForm1 = class(TForm)
TcpClient1: TTcpClient;
procedure TcpClient1Error(Sender: TObject; SocketError: Integer);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{
TcpClient 的属性：
Active: 是否自动作连接测试 (etc. True)
RemoteHost:远程主机名称 (etc. 大富翁是 www.delphibbs.com)
RemotePort:远程主机提供服务的端口 (etc. 大富翁是 80 )
TcpClient 的方法：
OnError :发生错误就激活这个事件
}
procedure TForm1.TcpClient1Error(Sender: TObject; SocketError: Integer);
begin // 10049 错误是“请求的地址无效”
if SocketError=10049 then MessageBox(0,'请求的地址不能连接','连线状态',mb_Ok);
end;
end.
