Menu en Delphi problemas con ShellExecute

[RubenXE]

Hola querida comunidad, hacia tanto que no usaba el Delphi, estoy tratando de hacer un Menu en Delphi, en el cual hay varios directorios
Supongamos que hay :

Directorio1\archivo1.exe
Directorio2\archivo2.exe
Directorio3\archivo3.exe

El problema es que el archivo archivo1.exe o cualquier otro archivo .exe de los demas directorios, necesita ejecutarse dentro del Directorio, ya que si simplemente llamo
el ejecutable supongamos archivo1.exe no encuentra las carpetas que estan dentro del Directorio1, las subcarpetas y los archivos para ejecutar la aplicacion ya que es como si estuviese llamando desde otro directorio al ejecutable.

Tengo todo listo pero estoy fallando en esto, yo tengo asi y doy un ejemplo

Código Delphi [-]
begin
  ShellExecute(Handle, 'open', 'Directorio1\archivo1.exe', nil, nil, SW_SHOWNORMAL)
end;

Muchisimas gracias a quien pueda ayudarme.