Function Connecting: Integer;  //проверяет соединение с интернетом
Var
  Conns: Array[1..10] Of TRasConn;
  Size: Integer;
  Num: Integer;
Begin
  Size:=Sizeof(TRasConn)*10;
  Fillchar(Conns, Size, 0);
  Conns[1].DwSize:=Sizeof(TRasConn);
  RASEnumConnectionsA(@conns[1], Size, Num);
  Connecting:=Num;
End;

procedure Connect; //подключается к интернету
var
 cmd, par, fil, dir: PChar;
begin
  cmd := 'open';
  fil := 'rasdial.exe';
  par := PChar(VPNName + ' ' + VPNLogin + ' ' + VPNPass);
  dir := 'C:';
  ShellExecute(Form1.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
  sleep(5000);
end;

procedure Diconnect; //отключается от интернета
var
cmd, par, fil, dir: PChar;
begin
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(VPNName + ' /DISCONNECT');
dir := 'C:';
ShellExecute(Form1.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
sleep(500);
end;

procedure reconnect; //выполняет переподключение
begin
  Diconnect;
  repeat Connect Until Connecting<>0;
accNum -1;
end;