function GetNextKey(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.
Note: in the IDE the series is rest to 0 each time the IDE starts (no persistent storage - keep production and testing apart).