Veritabanındaki kayıtları hızlı bir şekilde silmek

[sako]

aşağıdaki kod ile veritabanındaki kayıtları siliyorum. Ancak binlerce kayıt olunca silme işlemi uzun sürüyor.Bazen dakikalar sürüyor silinmesi. Bunun kısa bir yolu var mıdır acaba ?

while KAYITLAR.RecordCount<>0 do begin
KAYITLAR.Delete;
KAYITLAR.Next;
end;

[Battosai]

Query nesnesi ile SQL komutu çalıştırın

Q.sql.text = "delete from kayitlar";
Q.execute;