Dial Up Button Buku Menual

procedure TF_Dial.sButton1Click(Sender: TObject);
begin
  a:='';
  GetDir(0,a);
  if MessageDlg('Jangan Lupa Instal Foxit Reader ato Adobe Reader ya GAN!! '+
    #13+'Jika Tidak ada Bisa Klik No dulu.  '+
    #13+'Harap Tunggu Beberapa detik ?',mtinformation,[mbyes,mbno],0) =mryes then begin
    BukaFile(a+'\Buku_Menual.pdf');
  End;
end;