borrar todos los registros de una Tabla

[GINMARMENOR]

Buenas, tengo Delphi 2.010 y uso Firebird 2.5.


Quiero borrar todos los registros de una Tabla, y dejarla limpiar para ello utilizo el siguiente código

Código Delphi [-]

                 TablaPedidos.Active:=true
                 while not TablaPedidos.Eof do
                     begin
                       Tablapedidos.delete;
                       TablaPedidos.next;
                     end;

Pero sólo me borra registros a saltos si hay 1000 registros, me borra 300 salteados 3 no los borra 1 si si lo borra, tengo que pasar cuatro o cinco veces este codigo para que lo borre todo,

He estado mirando en internet pero todos los códigos son parecido a este, pero no sé por qué no los borra todos y deja la tabla limpia.

Si me pueden ayudar, gracias.