关于DATABASE的用法，改变数据源 ，急，马上给分 ，入门问题

我的保存程序全部为如下：COPY完全可以，让我伤心的是DELETE 不行，不过不要紧，我的数据库是ACCESS，谢谢，
procedure Tmain_form.C1Click(Sender: TObject);
 var
 existfile,newfile:pchar;
begin
   try
   existfile:='D:\PHS_SYSTEM\PHS.MDB';
   if SaveDialog1.Execute then
   begin
   self.SaveDialog1.InitialDir:='d:\PHS_SYSTEM';
   if self.SaveDialog1.FileName='' then showmessage('文件名不能为空') else
   begin
   newfile:=pchar(self.SaveDialog1.filename+'.MDB') ;
   CopyFile(ExistFile, NewFile, false);
   sleep(1000);
   form3.Table1.Active:=false;
    self.Query1.close;
    self.Query1.SQL.Clear;
    self.Query1.SQL.Add('delete  PHS_leader970') ;
    self.Query1.ExecSQL;