Как очистить базу данных, оставив только структуру

ЗАМЕЧАНИЕ: Этот пример не работает в режиме редактирования, так как таблица должна быть открыта в эксклюзивном режиме.

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;