MODEN拨号?

function RasDial(
    lpRasDialExtensions: PRASDialextensions;
    lpszPhoneBook: PChar;
    lpRasDialParams: PRASDialParams;
    dwNotifierType: DWORD;
    lpvNotifier: DWORD;
    var rasConn: DWORD
  ): DWORD; stdcall;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  RASDIALPARAMSData : PRASDialParams;
  dwResult : DWord;
  RasCon : DWORD;
begin  RASDIALPARAMSData.dwSize := sizeof(PRASDialParams);//结构大小
  RASDIALPARAMSData.szEntryName := '16300';//指定拨号连接的名称
  RASDIALPARAMSData.szUserName := '16300';//指定用户名称
  RASDIALPARAMSData.szPassword := '';//指定用户密码
  RASDIALPARAMSData.szDomain := '';//指定域名
  RASDIALPARAMSData.szCallbackNumber := '';//指定回叫号码
  RASDIALPARAMSData.szPhoneNumber := '';//指定拨号号码  dwResult:= RasDial(NIL,'',@RASDIALPARAMSData,0,NIL,RasCon); //这句出错不知怎么写?
  //出错信息：Incompatible types: 'Cardinal' and 'Pointer'
  if dwResult <> 0 then 
  memo1.lines.add('用'+StrPAS(RASDIALPARAMSData.szEntryName)+'拨号失败!!')
  else
  memo1.lines.add('用'+StrPAS(RASDIALPARAMSData.szEntryName)+'拨号成功!!');
end;