Problemas com ShellExecute()

Olá pessoal

Estou precisando automatizar alguns processos, mas pra isso eu teria que fazer este codigo funcionar:

isso não funciona:

var
parametros: string;

begin

parametros := InputBox('Acesso','Digite os parâmetros','');

ShellExecute(Handle, 'open', 'c:/quebraprocesso.exe ', parametros, nil, SW_SHOWNORMAL) ;
end;

isso funciona (manualmente) :

begin

ShellExecute(Handle, 'open', 'c:/quebraprocesso.exe ', 'wh.exe', nil, SW_SHOWNORMAL) ;
end;

desde já muito obrigado

abraçU