Text verschlüsseln ohne kömische Symbole !

[Delphiturbo]

Hallo,

hier ist eine einfache Funktion. Sie verschlüsselt den Text aber ich erhalte
mansch mal keine deutsche Buchstaben
z.B. : 12345 bekomme ich 5JfQ !!!

Wo soll ich den Code ändern, damit ich immer normale Tastatur Symbole
damit jeder das Ergebnis eintippen kann

Delphi-Quellcode:

function strEncrypt(const S: String; Key: Word): String;  
var I: Integer;  
const C1 = 52845; C2 = 22719;  
begin  
{$IFDEF Win32}  
 SetLength(Result,Length(S));  
{$ELSE}  
 Result[0]:=Chr(Length(S));  
{$ENDIF}  
 for I := 1 to Length(S) do begin  
  Result[I] := Char(Ord(S[I]) xor (Key shr 8));  
  Key := (Ord(Result[I]) + Key) * C1 + C2;  
 end;  
end;