Voy pegado!!

[ecfisa]

Nunca realizé una aplicación como servicio, pero supongo que podrías
ejecutar la línea de comando así:

var
  Comando: string;
begin
  Comando:= 'C:\Windows\System32\sc create Servicio1 binpath=' +
            '"C:\Documents and Settings\Intel\Escritorio'+
            '\Aplicacion como servicio\Project2.exe" start= disabled';
  WinExec(PChar(Comando),SW_NORMAL); 
//Habría que probar con SW_SHOWNOACTIVATE...
end;

Funcionó perfectamente con el siguiente valor en Comando:

var
  Comando: string;
begin
   Comando:= 'C:\Windows\System32\cmd.exe' +
                    ' /K CD C:\Documents and Settings';
   WinExcec(PChar(Comando), SW_NORMAL);
end;

Espero te ayude en algo.

Saludos.