A program for determining luck/morality in Heroes 3!

There's one remaining issue. Does anyone know how to get the process ID by its name in Delphi (currently, I'm manually entering the ID in the source code)?