[[seoane]]

Siguiendo el consejo de dec, coloca esto justo despues del ShellExecute:

Código Delphi [-]
ShowMessage(SysErrorMessage(GetLastError));