[[Lepe]]

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 // listatablas es un TStringlist;
begin 
  query1.sql.text := 'delete from '+ listatablas[i]';
  query1.ExecSql;
end;
listatablas.free;

Saludos