[Burka]

Писал я) Спасибо.
Sum и Sub это в принципе одно и тоже, разница тока в том, что в первом случае коды складываются, а во втором вычитаются)) Знаю, может это и лишнее, но я собирался делать модуль с разными процедурами шифрования.

En(De)CryptSymbolVij - ну это не главная функция, она вспомогательная(шифрует/расшифровывает один символ по таблице Виженера), используется в функции:
function En(De)CryptVij(Text, Key, ABC:string):string; - Шифрует(Расшифровывает) уже строку целиком

CryptSymbolVij - Это метод шифрования Виженера, он намного надежнее Sum, тем более если используется не стандартный алфавит (ABC), поэтому лучше использовать этот алгоритм, если данные ценные и хранятся длительное время в шифрованном виде.
Тока в нем ограничение, в алфавите должны быть все символы которые есть в кодируемой строке, иначе не будет работать.
А так, при кодировании нужно все запятые, пробелы и другие спец символы удалять, там вроде есть функция, которая это делает.