Voy pegado!!

[ecfisa]

Hola nicktdigo.

Mirá, opté por duplicar en mi disco la ruta que presentas en tu ejemplo creando las carpetas necesarias
(C:\Documents and Settings\Intel\Escritorio\ Aplicacion como servicio).

Lo que no puedo, por razones obvias, es hacer lo mismo con "Project2.exe", dado que:
1) No tengo ese archivo.
2) No sé que acción deseas que realize.

Pero como el problema que tenés es que el código genera excepciones;
el ejemplo que te agrego sirve igual. ( se ejecuta sin arrojar ningún error ).

procedure TForm1.Button1Click(Sender: TObject);
var
  Comando: string;
begin
  Comando:= 'sc create Servicio1 binpath= "C:\Documents and Settings\Intel\Escritorio\Aplicacion como servicio\notepad.exe" start= disabled';
  WinExec(PChar(Comando),SW_NORMAL);
end;

Como verás, es casi una copia fiel de tu línea, excepto claro está, por el ejecutable.

Bueno, a mi no me genera excepción de ningún tipo, ni de conversión ni de incompatibilidad de tipos...

Así que lamento no poder ayudarte más.


Saludos.