Для того чтобы разорвать/подключить сетевое подключение понадобится компоненты NTSet.Скачать его можно тут (для Delphi 7), либо на сайте www.online-admin.com.

Итак, скачиваем и устанавливаем. Выкладываем компонент NTFirewall на форму и две кнопки (TButton). Текст на первой меняем на "Отключить", для второй - "Подключить".

По событию onClick на кнопку отключить:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  With NTFirewall1.Connections do
  begin
    for i:=0 to Count - 1 do
    begin
      Items[i].Disconnect;
      ShowMessage('Отключено ' + Items[i].DeviceName);
    end;
  end;
end;

Аналогично и для второй кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  With NTFirewall1.Connections do
  begin
    for i:=0 to Count - 1 do
    begin
      Items[i].Connect;
      ShowMessage('Подключено ' + Items[i].DeviceName);
    end;
  end;
end;