Crear BD MySql en Tiempo de Ejecucion

[Eduard23]

hola amigos necesito de su valiosa ayuda estoy haciendo una aplicacion con motor de base de datos mysql y necesito crear en tiempo de ejecucion una BD
desde el comando funciona perfecto pero cuando lo hago desde el codigo no,les muestro
desde el comando:
C:\Program Files\MySQL\MySQL Server 5.5\bin>mysql.exe -uroot -p1234 < ejemplo.bat ejemplo.bat contiene Create database prueba;

desde el codigo:
comand:= 'C:\Program Files\MySQL\MySQL Server 5.5\bin\mysql.exe';
cmd := '"mysql.exe -uroot -p1234 < ejemplo.bat"';
ShellExecute(0,'open', Pchar(comand), Pchar(cmd), nil, SW_NORMAL );

no da error pero no crea la BD prueba
Espero por su valiosa ayuda.