Что нужно исправить для правильной работы с UNICODE?

[garuna]

Пишу на Delphi XE, нужно зашифровать и расшифровать строку содержащую русские буквы, при этом в проекте не должны быть подключены другие модули кроме Windows.pas. Нашел на просторах инета такой код, он отлично отрабатывает если строка содержит только латинские буквы и цифры, но не работает если входная строка содержит кириллицу.... Подскажите, как заставить эти функции работать с кириллицей?? Или может у вас есть другой ПРОСТЕЙШИЙ алгоритм шифрования, не требующий подключения дополнительных модулей и работающий с кириллицей, буду благодарен!

function Crypt(Str, Key: String): String;  //шифрование
var
  i, q: Integer;
begin
  for i := 1 to Length(Str) do
    begin
      q := (Ord(Str[i]) + (Ord(Key[(Pred(i) mod Length(Key)) + 1]) - Ord('0')));
        if q >= 256 then Dec(q, 256);
      Str[i] := Chr(q);
      Result := Str;
    end;
end;

function DeCrypt(Str, Key: String): String; //расшифровка
var
  i, q: Integer;
begin
  for i := 1 to Length(Str) do
    begin
      q := (Ord(Str[i]) - (Ord(Key[(Pred(i) mod Length(Key)) + 1]) - Ord('0')));
        if q < 0 then Inc(q, 256);
      Str[i] := Chr(q));
      Result := Str;
    end;
end;

[Stilet]

String замени на AnsiString

P.S. Кстати, Crypto API заюзать не желаешь?

[Shouldercannon]

Сообщение от Stilet

String замени на AnsiString

P.S. Кстати, Crypto API заюзать не желаешь?

Так должно быть

function Crypt(Str, Key: String): AnsiString;  //шифрование
function DeCrypt(Str, Key: String): AnsiString; //расшифровка

Или ещё где произвести замену String замени на AnsiString?