哪位老大问的关于用拨入服务器，然后访问INTERNET的？,Step-By-Step来了(100分)

//This program is the process I've made to enable a client to access
//an internal TCP/IP network with a modem. I think Internet would be
//something alkie. I take no responsibility to this program, format
//your harddisk for instance.
//
//If you are kind enough, please stick this to the place where some
//asked this question. and if this worked, ask him give points to you.
//and if youdo
so, leave a message here, so that others would never
//waist timedo
this again. Thanx.
Type TModemAccessNet = Class;
public
procedure Course;
procedure AfterTest(Sender:TObject);
end;

implementation
procedure TModemAccessNet.Course;
begin
1、安装网卡，与内部网络正常连接；
2、控制面板->网络->适配器->安装网卡驱动，本例为NE2000；
3、控制面板->网络->协议，安装TCP/IP协议；
4、TCP/IP协议的属性中，为刚才的网卡（NE2000）配置有固定的IP地址，本例假设为200.100.100.1；
5、TCP/IP协议属性中的路由选项中，选中（打钩）IP转发；
6、确定；//可能需要重启；
7、确保已经可以使用此网卡通讯；
8、控制面板->网络->服务->添加->远程访问服务；
9、添加一个MODEM；//略
10、配置，选择拨出和接收；
11、网络，拨出协议选择TCP/IP；
12、拨入协议选择TCP/IP；
13、加密设置，选择允许任何验证，包括一般文字；
14、按拨出协议TCP/IP旁边的那个配置；
15、允许远程客户访问，选择整个网络；
16、选择使用静态地址集，输入客户的IP地址，本例为200.100.100.27到200.100.100.30；
17、确保没有选择允许远程客户请求默认IP地址；//需要重启
18、开始->管理工具[公用]->域用户管理器；
19、双击你的用户名；
20、拨入，选择给予用户拨入权限；
21、回拨，选择由拨入者设定；//可省略
22、确定，确定，确定。
end;

procedure TModemAccessNet.AfterTest(Sender:TObject);
begin
if self.worked then
CJ.congratulation(Sender as TRich)
else
begin
CJ.Sorry(Sender as TRich);
CJ.ShutUp;
(Sender as TRich).Throw(Self,Recycle_Bin);
end;
end;

to cj:
give me crack of power designer 7.0( i havedo
wnload the trial)
to hubdog@chinaren.net. thx!!!

neither your mail addresses work
both were dilivered.
send me a mailto:cjcjc@online.sh.cn
recently I'll decrease the time on online.
forgive my poor english, since i cannot use chinese now.

CJ:
当你不能输入中文时,点两下工具栏中的Refresh,运气好的话一下就解决问题.

看过了吗？贴过了吗？

？我怎么出了100？？？
还我~~~
谁mail我点好东西，分数归他

peterwang 来拿分

（诚惶诚恐地）c..j...我...来...了....谢....谢.....

1、你转贴了本贴；
2、你没试出来？SORRY