La modificación que te envié la prove en XE2 y si funciona...(Win7 x64).
Este es el código que probe....
Código Delphi
[-]
var Archivo: string;
errorcode: integer;
begin
Archivo:='c:\Windows\SysWOW64\calc.exe';
If Not FileExists(Archivo) Then Exit;
Errorcode:=ShellExecute(0, 'open', PWideChar(Archivo), nil, nil, SW_NORMAL);
end;
Verifica la ruta y nombre del comando a ejecutar...
Puede ser otro el problema...