rotina dial-up

estou usando essa rotina para executar a conexao padrao do dial-up
soh q nao funciona, alguem tem alguma ideia ou outra forma de fazer isso?

[i:8c8911d911]var
Conexao, Executa, Conecta : string;
Dialup : Pchar;
reg : TRegIniFile;
begin
reg := TRegIniFile.create(´RemoteAccess\´);
Conexao := reg.ReadString(´´,´Default´,´´);
reg.free;
Executa:=´rundll32.exe rnaui.dll,RnaDial ´; {executavel e biblioteca do windows}
Conecta:=Executa+Conexao; {concatena comando e nome da conexão}
Dialup:=Pchar(Conecta); {transforma string em caracter para ser aceita pela função}
winexec(Dialup,sw_show);
end;[/i:8c8911d911]

K-ROL