TJvVigenere Fehler / Bedienung wie??

[D-User]

Mojn mojn,
bzgl. der Vigenere-Cipher-Komponente in der JVCL bekomme ich Fehler beim
dechiffrieren, hat einer eine Idee?

Code: Button8 auf Form, JvCipher einbinden, und dann bekomme ich 'Fehler!!' angezeigt.
Wie mach ich's richtig, woran liegts?? ( D7 Enterprise mit letztem Update! )

Thnx im Vorhinein!!


Code:
*********************

procedure TForm1.Button8Click(Sender: TObject);
var
i: integer;
VigenereCipher : TJvVigenereCipher;
key,EncodedString, DecodedString: AnsiString;
AsciiStr: AnsiString;
begin
VigenereCipher := TJvVigenereCipher.Create( nil );
key := 'fwe1';
AsciiStr := '';

for i := 133 to 183 do
AsciiStr := AsciiStr + char(i);

EncodedString := VigenereCipher.EncodeString(key,AsciiStr );
DecodedString := VigenereCipher.DecodeString(key,EncodedString );

// Test:
if AsciiStr <> DecodedString then
ShowMessage('Fehler!!');

VigenereCipher.Free;
end;