关于拨号网络~~~急急急~~~(200分)

今年我要参加学校的毕业设计，我做的是拨号上网程序（使用Delphi），其中的一个模块是获取拨号网络的参数（如：帐号，密码，电话号码）；帐号和密码都已经能获取但就是电话号码不能获取，请你给我看一下源代码，究竟是那里出错了？

var
ras:trasdialparams;
lp:longbool;
begin
fillchar(ras,sizeof(ras),0);
ras.dwSize:=sizeof(ras);
strcopy(ras.szEntryName,'我的连接'));
rasgetentrydialparams(nil,ras,lp);
edit1.Text:=ras.szPhoneNumber;//<---------------- 就是这里的ras.szPhoneNumber没有值，但在“我的连接”的电话号码是"163"的。
edit2.Text:=ras.szUserName;
edit3.Text:=ras.szPassword;

end;

把你的API和类型声明贴出来！