如何清空主从表结构数据库

ADO 连接Access数据库，如何清空主从表结构数据库 
ADOTable1为主表，ADOTable2为从属表   if MessageBox(Handle,'你真的要删除所有数据？','警告',MB_YESNO or MB_ICONWARNING)=IDNO then Abort
 else begin
      Form1.ADOTable2.First;
      n:=Form1.ADOTable2.RecordCount;
      for i:=1 to n do
      begin
      Form1.ADOTable2.Delete;
      if Form1.ADOTable2.Eof<>true then
      begin
      Form1.ADOTable2.Next;
      end;
      end;    ////////////////////////////
     Form1.ADOTable1.First;
      n:=Form1.ADOTable1.RecordCount;
      for i:=1 to n do
      begin
      Form1.ADOTable1.Delete;
      if Form1.ADOTable1.Eof<>true then
      begin
      Form1.ADOTable1.Next;
      end;
      end;