Dial Up Isi Prosedur

procedure TF_Dial.bersihList;
begin
  sListBox1.Items.Clear;
end;

procedure TF_Dial.bacakonfig;
begin
  a:='';
  GetDir(0,a);

  sMemo1.Lines.LoadFromFile(a+'\config.cfdial');
  sMemo2.Lines.LoadFromFile(a+'\config2.cfdial');
  sMemo3.Lines.LoadFromFile(a+'\Dial-UP ~1');
  sMemo4.Lines.LoadFromFile(a+'\Dial-UP ~2');
  sSkinManager1.SkinDirectory:=a+'\TheFrog.asz';

  //untuk pilihan ip
  if sMemo3.Text='1' then sRadioButton1.Checked:=True
  else if sMemo3.Text='2' then sRadioButton2.Checked:=True;

  //untuk penggunaan ip hunter ato tidak
  if sMemo4.Text='1' then Begin
    sCheckBox1.Checked:=True;
    sMemo2.Enabled:=True;
  End
  else if ((sMemo4.Text='0') Or (sMemo4.Text='')) then Begin
    sCheckBox1.Checked:=False;
    sMemo2.Enabled:=False;
  End;//emd else
end;