Fórum instalar programa delphi como serviço #584218

Veja se os links ajudam:

Outro link:

Se você precisar instalar o mesmo serviço mais de uma vez, ou seja, o mesmo exe terá nomes diferentes no serviço, faça o seguinte:

procedure TMyService.ServiceCreate(Sender: TObject);
begin
if (System.ParamCount >= 1) and not CharInSet(ParamStr(1)[1], SwitchChars) then
Name := ParamStr(1);
end;

Assim você pode utilizar os seguintes comandos para criar os serviços (os espaços após o = são necessários):
sc create myservice1 binpath= "c:\\MyService\\ServiceApp.exe myservice1" displayname= "Serviço 1"
sc create myservice2 binpath= "c:\\MyService\\ServiceApp.exe myservice2" displayname= "Serviço 2"

Observe que o padrão c:\\MyService\\ServiceApp.exe -install não vai funcionar.

Leia mais em https://stackoverflow.com/questions/18599201/service-does-not-start