Добавить алиас aName, который может быть заменен на aValue, в случае если ключ равен aKey или в любом случае, если aKey = ''
procedure AddAlias(aName, aValue: string; aKey: string = '');