try
  with Table1 do
  begin
    Close;
    Exclusive := true;
    Open;
    EmptyTable;
    Close;
  end;
except
  on E: EDBEngineError do
    ShowMessage(E.Message);
end;