Текущая TTable пуста

Проверить таблицу - имеет она записи или нет, можно с помощью простой функции

Function NotEmptySet(inSet:TDataSet): boolean;
begin
  Result := Not (inSet.Bof and inSet.eof);
end;

Проще некуда, используются известные свойства DataSet.Bof и DataSet.Eof Удалить все записи из таблицы (вместо EmptyTable)

while NotEmptySet(dm.taAb) do
  dm.taAb.Delete;

Недавно добавленные исходники
• Animation Loaders 641 • DeLiKaTeS Tetris (Тетрис) 5 655 • TDictionary Custom Sort 7 613 • Fast Watermark Sources 7 305 • 3D Designer 10 502 • Sik Screen Capture 7 823 • Patch Maker 8 052 • Айболит (remote control) 8 107 • ListBox Drag & Drop 6 915 • Доска для игры Реверси 100 052 • Графические эффекты 8 172 • Рисование по маске 7 572 • Перетаскивание изображений 6 176 • Canvas Drawing 6 542 • Рисование Луны 6 469 • Поворот изображения 5 651 • Рисование стержней 4 570 • Paint on Shape 3 277 • Генератор кроссвордов 4 263 • Головоломка Paletto 3 398 • Теорема Монжа об окружностях 4 226 • Пазл Numbrix 2 743 • Заборы и коммивояжеры 3 643 • Игра HIP 2 448 • Игра Go (Го) 2 431 • Симулятор лифта 2 836 • Программа укладки плитки 2 281 • Генератор лабиринта 2 990 • Проверка числового ввода 2 502 • HEX View 2 903