Me ha parecido entender que tienes datos de prueba y al terminar el programa quieres vaciar todos los datos para empezar con datos reales, 2 formas:
- Como te han dicho, extraes la metadata, y después la ejecutas de nuevo cambiando el nombre de la base de datos (todo esto desde tu administrador de BBDD)
- Te preparas una rutina que lance una sentencia sql sobre cada tabla. El objeto TDatabase tendrá un método GetTablenames, después puedes lanzar un query:
Código Delphi
[-]
listatablas := Tstringlist.create;
DAtabase.GetTablenames(listaTablas);
for i:= 0 to listaTablas.Count-1 do begin
query1.sql.text := 'delete from '+ listatablas[i]';
query1.ExecSql;
end;
listatablas.free;
Saludos