Delphi code that checks for a single instance of you module runnig