Функция
Описание:
function GlobalAddAtom(Str: PChar): TAtom;
Добавляет Str в таблицу атомов, создавая новый глобальный атом.
Параметры:
Str: Стpока, заканчивающаяся пустым символом.
Возвращаемое значение:
Вновь созданный атом; 0 - если ошибка.