ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM 8;');//имя table 8
ADOQuery1.ExecSQL;

 with ADOQuery1 do
   begin
     if Active then
       Close;
     SQL.Clear;
     SQL.Text := 'DELETE FROM Table1';
     ExecSQL;
   end;

ExecSQL

Open

Add('DELETE FROM 8;')

procedure TDataSet.SetActive(Value: Boolean);
begin
 if (csReading in ComponentState) then
 begin
   FStreamedActive := Value;
 end
 else
  if Active <> Value then
   begin
     if Value then
     begin
       DoBeforeOpen;
       try
         OpenCursor;
       finally
         if State <> dsOpening then
           OpenCursorComplete;
       end;
     end else
     begin
       if not (csDestroying in ComponentState) then DoBeforeClose;
       SetState(dsInactive);
       CloseCursor;
       if not (csDestroying in ComponentState) then DoAfterClose;
     end;
   end;
end;

select from 8

select * from 8

DELETE FROM ...

DELETE  FROM