script inject

  if button1.Caption ='Connect' then
  begin
  // config IP jika di gunakan di Bitvise
  IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
  // Port yang ada di listen
  IdMappedPortTCP1.Bindings.Add.Port := StrToIntDef(Edit1.Text, 8000);
  // proxy yang bisa di akses jika tidak punya pulsa atau kuota
  IdMappedPortTCP1.MappedHost := '10.4.0.10';
  // Port yang asli 3128 dan di samarkan menjadi 8080
  IdMappedPortTCP1.MappedPort := StrToIntdef('3128',8080);
  // Jalanakan inject
  IdMappedPortTCP1.Active := true;
  // Mendisablekan edit1
  edit1.Enabled := false;
  // Caption button berganti Disconnect
  button1.Caption := 'Disconnect'
  end
  else
  begin
  // Mengaktifkan edit1 supaya bisa di ketik lagi
  edit1.Enabled := true;
  // Mematikan inject
  IdMappedPortTCP1.Active := false;
  // Mengganti caption menjadi connect
  button1.Caption := 'Connect'
  end;