ShellExecute con Carpetas con Espacios

[ASAPLTDA]

Hola Foristas,
Estoy tratando de llamar un programa en una carpeta que tiene espacios
Ejemplo : C:\SERVINET2014 X2\DELPHI

Código Delphi [-]
  pgm:= 'C:\SERVINET2014 X2\DELPHI\EJECUTABLE.EXE';
  w_error:= ShellExecute(Handle, 'open', PChar('c:\test\app.exe'), nil, nil, SW_SHOW);

Pero indica que no se encuentra el programa.
Pero si copio el programa a la carpeta c:\@ entonces funciona

Código Delphi [-]
  pgm:= 'C:\@\EJECUTABLE.EXE';
  w_error:= ShellExecute(Handle, 'open', PChar('c:\test\app.exe'), nil, nil, SW_SHOW);

Podrias alguno indicarme la forma correcta de usar esta intruccion cuando se usan espacios en el folder

Gracias