Удаление всех записей в таблице

[DoctorChe]

Здравствуйте!
Необходимо удалить все записи из таблицы.
Делаю так

procedure TForm1.DelAllClick(Sender: TObject);
begin
Form1.tbStd.Active := False;
Form1.tbStd.EmptyTable;
end;

Выдаёт ошибку "Table is busy".
Как побороть?

Всё перепробовал и перегружался - результат один.
Как можно ещё закрыть таблицу, если не "Active := False"?

Может можно как-то посчитать строки и удалить по одной?

 

[DoctorChe]

Сделал так:
procedure TForm1.DelAllClick(Sender: TObject);

begin
Form1.tbStd.Last;
while not tbStd.Bof do begin
Form1.tbStd.Delete;
Form1.tbStd.Prior;
end;
end;

Но не удаляет первую строку.

 

[DoctorChe]

проблема решена

 

[perceptron]

Если записей в таблице очень много, то по времени быстрее будет DROP Table сделать и создать таблицу заново.

 

[rdama]

А почему не сделать

DELETE FROM table