vaciar una tabla

[arc22]

Hola, para vaciar una tabla he visto este código:

if MessageDlg ('Se va a borrar la tabla. ¿Continuar?', mtConfirmation, mbOKCancel, 0)=mrok then
begin
table1.Close;
table1.exclusive := True;
table1.EmptyTable;
table1.exclusive := False;
table1.Open;
end
else abort

pero me levante la excepción: "table is busy", ¿alguien me podría decir a que se debe esto ?. Desde ya muchas gracias.
Andrés