Dial Up RadioButton + Checkbox

procedure TF_Dial.sRadioButton1Click(Sender: TObject);
begin
  a:='';
  GetDir(0,a);
  sMemo3.Text:='1';
  sMemo3.Lines.SaveToFile(a+'\Dial-UP ~1');
  sMemo3.Lines.LoadFromFile(a+'\Dial-UP ~1');
end;

procedure TF_Dial.sRadioButton2Click(Sender: TObject);
begin
  a:='';
  GetDir(0,a);
  sMemo3.Text:='2';
  sMemo3.Lines.SaveToFile(a+'\Dial-UP ~1');
  sMemo3.Lines.LoadFromFile(a+'\Dial-UP ~1');
end;

procedure TF_Dial.sCheckBox1Click(Sender: TObject);
begin
  a:='';
  GetDir(0,a);
  if sCheckBox1.Checked=True then begin
    sMemo4.Text:='1';
    sMemo4.Lines.SaveToFile(a+'\Dial-UP ~2');
    sMemo4.Lines.LoadFromFile(a+'\Dial-UP ~2');
    //Application.MessageBox('IP Hunter Aktif.'+#13+
    //'IP disamping akan Dicari!','Informasi',MB_ICONINFORMATION);
    sMemo2.Enabled:=True;
  end
  else if sCheckBox1.Checked=False then begin
    sMemo4.Text:='0';
    sMemo4.Lines.SaveToFile(a+'\Dial-UP ~2');
    sMemo4.Lines.LoadFromFile(a+'\Dial-UP ~2');
    //Application.MessageBox('IP Hunter Tidak Aktif.'+#13+
    //'Semua IP akan Konek!','Informasi',MB_ICONINFORMATION);
    sMemo2.Enabled:=False;
  end;
end;