Такую штуку на С писал. Вероятно в Delphi такие же функции:

RASDIALPARAMS rdParams;

strcpy(rdParams.szPhoneNumber, "номер телефона");
strcpy(rdParams.szUserName, "имя пользователя");
strcpy(rdParams.szPassword, "пароль");
strcpy(rdParams.szDomain, "домен");

dwRet = RasDial( NULL, NULL, &rdParams, 1, NULL, &hRasConn );

if ( dwRet ) {
if ( RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 ) {
wsprintf( (LPSTR)szBuf, "Undefined RAS Dial Error (%ld).", dwRet );
Application->MessageBox((LPSTR)szBuf, "", MB_OK | MB_ICONSTOP );
RasHangUp(hRasConn);
return;
} // if