TChipher in Funktion neu initialisieren mit neuem Passwort

[thy]

Hallo ich bin neu hier, also bitte nich hauen...

ich möchte gerne in einer Funktion einen Stream 2x verschlüsseln mit unterschiedlichen Passwörtern und versuche dafür TCipher_Blowfish erneut zu erstellen mit einem neuen Passwort, aber das klappt nicht. Es wird immer nur das Passwort der ersten Initialisierung verwendet, aber warum??? Ich habe es auch schon mit "destroy" und "nil" probiert aber es klappt alles nicht...

Hier der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var stream, stream_neu: TMemoryStream;
var groesse: LongInt;
begin
 stream := TMemoryStream.Create;
 stream_neu := TMemoryStream.Create;
 stream.LoadFromFile('C:\test.txt');
 groesse := stream.Size;

 with TCipher_Blowfish.Create('', nil) do
 try
  InitKey('test', nil);
  EncodeStream(stream, stream_neu, groesse);
  stream_neu.SaveToFile('c:\test1.txt');
 finally
  Free;
 end;

 with TCipher_Blowfish.Create('', nil) do
 try
  InitKey('test2', nil);
  EncodeStream(stream, stream_neu, groesse);
  stream_neu.SaveToFile('c:\test2.txt');
 finally
  Free;
 end;

 stream.Destroy;
 stream_neu.Destroy;

end;

Für jeden Hinweis wäre ich überaus dankbar!!!

Viele Grüsse,
Tom

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]