RASDIALPARAMS	rdParams;
 static HRASCONN 	hRasConn;
 char		szEntry[RAS_MaxEntryName+ 1 ];
 DWORD		dwRet;
 char		szBuf[ 256 ], *EntryName;
 UINT		ndx;

 memset(&rdParams,  0 , sizeof(RASDIALPARAMS));
 rdParams.dwSize = sizeof(RASDIALPARAMS)- 8 ;
 strcpy(rdParams.szEntryName, Имя подключения);
 strcpy(rdParams.szUserName, Имя пользователя);
 strcpy(rdParams.szPassword, Пароль);
 strcpy(rdParams.szDomain, Домен);

 hRasConn = NULL;
 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);
 } // if