procedure TForm1.Button1Click(Sender: TObject);
 VAR
  RE: TRasEntry;
  DEV: array[1..100] of TRasDevInfo;
  i, j,cnt: integer;
begin
 j := sizeof(DEV)*100;
DEV[1].dwSize := sizeof(TRASDEVINFO);


Fillchar(RE, sizeof(TRasEntry), 0);
RE.dwSize := sizeof(TRasEntry);

RE.dwCountryID := 7;
RE.dwCountryCode := 7;
RE.szAreaCode := '';
RE.szLocalPhoneNumber := 'ххх.ххх.хх.ххх';

RE.dwfNetProtocols := RASNP_Ip;
RE.dwFramingProtocol := RASFP_Ppp;
RE.szDeviceType := 'Vpn';


RE.szDeviceName := 'WAN Miniport (L2PTP)';

try
i := RasSetEntryPropertiesA(nil, 'DV TEST', @RE, sizeof(TRasEntry), nil, 0);
if i = ERROR_BUFFER_INVALID then Memo1.Lines.Add('The address or buffer specified by lpRasEntry is invalid');
if i = ERROR_CANNOT_OPEN_PHONEBOOK then Memo1.Lines.Add('The phone book is corrupted or missing components');
except
Memo1.Lines.Add('Ошибка');
end;

end;

Это код структуры, в которую пытаюсь добавить параметр

 (* A RAS phonebook entry.
*)
  LPRasEntryA = ^TRasEntryA;
  TRasEntryA = record
    dwSize,
    dwfOptions,
    //
    // Location/phone number.
    //
    dwCountryID,
    dwCountryCode: Longint;
    szAreaCode: array[0.. RAS_MaxAreaCode] of AnsiChar;
    szLocalPhoneNumber: array[0..RAS_MaxPhoneNumber] of AnsiChar;
    dwAlternatesOffset: Longint;
    //
    // PPP/Ip
    //
    ipaddr,
    ipaddrDns,
    ipaddrDnsAlt,
    ipaddrWins,
    ipaddrWinsAlt: TRasIPAddr;
    //
    // Framing
    //
    dwFrameSize,
    dwfNetProtocols,
    dwFramingProtocol: Longint;
    //
    // Scripting
    //
    szScript: Array[0..MAX_PATH - 1] of AnsiChar;
    //
    // AutoDial
    //
    szAutodialDll: Array [0..MAX_PATH - 1] of AnsiChar;
    szAutodialFunc: Array [0..MAX_PATH - 1] of AnsiChar;
    //
    // Device
    //
    szDeviceType: Array [0..RAS_MaxDeviceType] of AnsiChar;
    szDeviceName: Array [0..RAS_MaxDeviceName] of AnsiChar;
    //
    // X.25
    //
    szX25PadType: Array [0..RAS_MaxPadType] of AnsiChar;
    szX25Address: Array [0..RAS_MaxX25Address] of AnsiChar;
    szX25Facilities: Array [0..RAS_MaxFacilities] of AnsiChar;
    szX25UserData: Array [0..RAS_MaxUserData] of AnsiChar;
    dwChannels: Longint;

    //
    // Reserved
    //
    dwReserved1,
    dwReserved2: Longint;
    //Fabrika

    //dwVpnStrategy: Longint;

{$IFDEF WINVER41}
    //
    // Multilink
    //
    dwSubEntries,
    dwDialMode,
    dwDialExtraPercent,
    dwDialExtraSampleSeconds,
    dwHangUpExtraPercent,
    dwHangUpExtraSampleSeconds: Longint;
    //
    // Idle timeout
    //
    dwIdleDisconnectSeconds: Longint;

{$ENDIF}
 //+ МОЕ
 {$IFDEF  WINVER51}
    dwType           : Longint;
    dwEncryptionType : Longint;
    dwCustomAuthKey  : Longint;
    guidId           : string;
    szCustomDialDll  : Array [0..MAX_PATH - 1] of AnsiChar;
    dwVpnStrategy    : Longint;
    dwIPv6InterfaceMetric: boolean;
 {$ENDIF}

   dwfOptions2: LongInt;