[Страдалецъ]

Просто чудно. А теперь сделайте то-же самое хотя-бы с 10000 записей в таблице и оцените потери времени. Вот так попробуйте:

Код:

 try
    with Table1 do
    begin
      Active := False;
      Exclusive := True;
      Active := True;
      try
        EmptyTable;
      except
        ShowMessage('Cannot empty database');
      end;
    end
  except
    ShowMessage('cannot open table in exclusive mode');
  end

(С) Delphirus.com