TTable имеет метод EmptyTable.
Пример:
try with Table1 do begin Close; Exclusive := true; Open; EmptyTable; Close; end; except on E: EDBEngineError do ShowMessage(E.Message); end;
with
Table1 do
begin
Close; Exclusive := true
; Open; EmptyTable; Close; end
; except
on
E: EDBEngineError do
ShowMessage(E.Message
); end
;