Como obter o PID de um Serviço

Muito show de bola esta dica:

http://stackoverflow.com/questions/469494/how-can-i-find-the-process-id-from-the-service-name-handle-in-delphi