procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   with NTFirewall1.Connections do
   begin
     for i:=0 to NTFirewall1.Connections.Count - 1 do
     begin
       ShowMessage('Ioee??a? ' + Items[i].DeviceName);
       Items[i].Disconnect;
     end;
     for i:=0 to NTFirewall1.Connections.Count - 1 do
     begin
       ShowMessage('Aee??a? ' + Items[i].DeviceName);
       Items[i].Connect;
     end;
   end;
end;