Ejecutar automaticamente scripts en tiempo de ejecucion

[meosre]

he leido un poco para como correr scripts en tiempo de ejecucion y encontre que de esta manera podria realizarlo pero no me funciona, no sale error, pero tampoco lo hace:

cadena := Pchar('mysql prueba < D:\BDAmbienteInformatico.sql');
try
ShellExecute(handle,'open',cadena,nil,nil,0);
except
ShowMessage('Ocurrio un error abriendo el modelo');
end;

prueba es la bd ya creada y D:\BDAmbienteInformatico.sql es el path de los scripts de la estructura de la bd, por fa miren y me dicen que esta mal o que falta o si hay una manera diferente de hacerlo. Gracias