access??
提示什么错误?

delphi7.0自带的paradox表
就是跳到   showmessage('数据备份没有成功！')；

paradox没有试过.不过copyfile好像也不好用吧.我一直用下面的过程进行恢复与备份,你可以试一下.
procedure tfrm_systemset.Databakcopy(a,b:string);//a,b为源文件和目标文件
var
  T1, T2: file of byte;
  lin: array[0..10] of char;
  i: integer;
  length: longint;
begin
  assignfile(T1, a);
  reset(T1);
  assignfile(T2, b);
  rewrite(T2);
  length := filesize(T1);
     while length > 0 do
     begin
       blockread(T1, lin[0], sizeof(lin), i);
       length:=length-i;
       blockwrite(T2, lin[0], i);
    end;
    closefile(T1);
    closefile(T2);
  end;

procedure tbackupform.Databakcopy(a,b:string);              //a,b为源文件和目标文件
var
  T1, T2: file of byte;
  lin: array[0..10] of char;
  i: integer;
  length: longint;
begin
  assignfile(T1, a);
  reset(T1);
  assignfile(T2, b);
  rewrite(T2);
  length := filesize(T1);
     while length > 0 do
     begin
       blockread(T1, lin[0], sizeof(lin), i);
       length:=length-i;
       blockwrite(T2, lin[0], i);
    end;
    closefile(T1);
    closefile(T2);
  end;
procedure Tbackupform.BtnBackUpClick(Sender: TObject);//调用过程
var  databasepath:string;
begin
DataBasepath:=ExtractFileDir(paramstr(0))+'\data';
 Databakcopy(databasepath,'C:\Documents and Settings\new\桌面\yyyyy\t_info.db');
出错“file access denied",请问什么原因啊？

你的这句:DataBasepath:=ExtractFileDir(paramstr(0))+'\data';错了.不是一个有效的文件名.你可以showmessage看一下.
databakcopy(a,b:string)中,a为数据库文件,b为将要备份成的文件;

问题已经解决