Vaciar tablas con un script.

[lbidi]

Estimados estoy haciendo mis primeras armas con FB y Firedac.

Tengo un procedimiento para limpiar las tablas que voy generando ya que voy importando datos desde otra BD.

Mi script para limpiar las tablas es el siguiente.

Código Delphi [-]
    FDScript.SQLScripts.Clear;
    FDScript.SQLScripts.Add.SQL.Add( 'Delete from Articulos;' );
    FDScript.SQLScripts.Add.SQL.Add( 'Delete from Cabezal;' );
    FDScript.SQLScripts.Add.SQL.Add( 'Delete from Proveedores;');
    FDScript.SQLScripts.Add.SQL.Add( 'Delete from Stock;');
    FDScript.ValidateAll;
    FDScript.ExecuteAll;
    FDConnection.Commit;

Antes lo hacia de esta manera por cada tabla y si me borraba los registros.

Código Delphi [-]
    FD_QueryFB.SQL.Text := 'Delete from Articulos';
    FD_QueryFB.ExecSQL;

pero me parecia muy largo el procedimiento dato que voy a tener mas de 50 tablas.

El asunto es que no me borra los registros. De que manera podria ejecutar un script para ir borrando los registros de cada tabla y asi seguir probando la migracion ?

Gracias.