function GetNextKeyWord(sName : String) : Integer;
Get a key. The name identifies a series of sequentially issued keys. You can use any name - no need to register it in advance. The key is limited to values below 65535 (when it hits 64k, it resets. Suitable for use as DICOM message key generator)
Note: in the IDE the series is rest to 0 each time the IDE starts (no persistent storage - keep production and testing apart).