delphi备份access以后找不到备份的文件是咋回事

delphi备份access以后找不到备份的文件是怎么回事
备份access以后，可以运行，但是找不到备份出来的文件，然后恢复的时候opendialogue也是找不到先前备份的文件，各位大神求解释啊TAT


代码如下：

procedure TForm2.Button48Click(Sender: TObject);
begin
  SaveDialog1.DefaultExt:='.mdb';
  SaveDialog1.Filter:= '数据库文件|*.mdb|所有文件|*.*';
  if SaveDialog1.Execute then
  if SaveDialog1.FileName <> '' then
  begin
  try
  copyfile(pchar('D:\课件\信息系统分析与设计\实习周\界面'+'信息系统表.mdb'),pchar('D:\课件\信息系统分析与设计\实习周\界面'+SaveDialog1.FileName),false);
  showmessage('备份成功！');
  except
  showmessage('备份失败，请重新备份！');
  end;
  end;
end;

procedure TForm2.Button49Click(Sender: TObject);
var
path:string;
begin
OpenDialog1.Title:='请选择备份文件';
if OpenDialog1.Execute then
if OpenDialog1.FileName <> '' then
begin
path := ExtractFilePath(application.ExeName);//当前运行的程序的exe文件所在的目录
try
ADOConnection1.Connected := false;
Deletefile(path+'信息系统表.mdb');
copyfile(pchar(OpenDialog1.FileName),pchar(path + '信息系统表.mdb'), false);
showmessage('成功恢复数据！');
except
showmessage('恢复失败，请重试!');
end;
ADOConnection1.Connected := true;
end;
end;


[解决办法]
copyfile(pchar(ExtractFilePath(application.ExeName)+'信息系统表.mdb'),pchar(SaveDialog1.FileName),false);