Функция
Описание:
function FindAtom(Str: PChar): Atom;
Ищет в таблице атомов атом, связанный с Str.
Параметры:
Str: Стpока поиска.
Возвращаемое значение:
Атом, связанный с Str; 0 - если атом в таблице не найден.