Вот ужасно простой пример XOR шифрования - работает без глюков.

var
 key, text, longkey, result: string;
 i: integer;
 toto, c: char;
begin
 for i := 0 to (length(text) div length(key)) do
 longkey := longkey + key;
 for i := 1 to length(text) do
 begin
 toto := chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
 result := result + toto;
 end;
end;