Очистка таблицы (с проверкой)

TTable имеет метод EmptyTable.

Пример:

try

  with
 Table1 do

  begin

    Close;
    Exclusive := true
;
    Open;
    EmptyTable;
    Close;
  end
;
except

  on
 E: EDBEngineError do

    ShowMessage(E.Message
);
end
;

Другое по теме:

• Database Desktop показывает содержимое таблиц шрифтом без русских букв
• Динамическое создание таблицы и полей во время выполнения программы
• Естественные ключи против искусственных ключей