help me again,please

可以的啦，下面代码，试试var
  RASParams: TRasDialParams;
  hRas: ThRasConn;
  cerror: array[0..100] of Char;
  iReturn: Integer;
begin
  try
    FillChar(RasParams, SizeOf(TRasDialParams), 0);
    with RASParams do
    begin
      dwSize := SizeOf(TRasDialParams);
      StrPCopy(szEntryName, '使用的连接的名称，拨号或是其他的');
      strpcopy(szUserName, 'username');
      strpcopy(szPassword, 'yourpassword');
    end;
    hRas := 0;
    iReturn := RasDial(nil, nil, RasParams, 0, nil, hras);
    if iReturn <> 0 then
    begin
      RasGetErrorString(iReturn, cerror,100);
      ShowMessage(cerror);
    end;
  except
    //
  end;
end;