Dial Up Button Simpan Pengaturan

procedure TF_Dial.sButton3Click(Sender: TObject);
begin
  a:='';
  GetDir(0,a);
  sMemo1.Lines.SaveToFile(a+'\config.cfdial');
  sMemo1.Lines.LoadFromFile(a+'\config.cfdial');
  sMemo2.Lines.SaveToFile(a+'\config2.cfdial');
  sMemo2.Lines.LoadFromFile(a+'\config2.cfdial');
  sMemo3.Lines.SaveToFile(a+'\Dial-UP ~1');
  sMemo3.Lines.LoadFromFile(a+'\Dial-UP ~1');
  sMemo4.Lines.SaveToFile(a+'\Dial-UP ~2');
  sMemo4.Lines.LoadFromFile(a+'\Dial-UP ~2');
  sleep(100);
  sPC1.ActivePageIndex:=0;
  sListBox1.SetFocus;
end;