ЗАМЕЧАНИЕ:
Этот пример не работает в режиме редактирования, так как таблица
должна быть открыта в эксклюзивном режиме.
procedure
TForm1.Button2Click(Sender: TObject);
begin
{Opens the table in exclusive mode}
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
end;
Взято из http://forum.sources.ru