[vasketsov]

если DELETE FROM TABLENAME не работает, то выход один.

Table3.First;
while not Table3.eof do
Table3.Delete;

repeat - алгоритмическая ошибка, цикл не обязан выполняться как мниимум один раз.