Tambien hay que modificar la clave: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings y cambien el valor de NoNetAutodial a 0X00000000 (osea a 0)
Código Delphi
[-]uses registry;
var
Registro : Tregistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_CURRENT_USER;
if Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then
begin
Registro.WriteInteger('EnableAutodial',1);
Registro.WriteInteger('NoNetAutodial',0);
Registro.CloseKey;
Registro.Free;
end;
end;