Verschlüsselung einer CSV Datenbank Klappt nicht ganz

[5etH]

okay hab es eingebaut und wollte es auch gleich testen leider bekomme ich eine Zugriffsverletzung an folgender Stelle

wollte es bevor ich es Laden kann ja erst einmal codieren:

Delphi-Quellcode:

procedure encodeFile(fileName:TFileName;mStream:TMemoryStream);
var
  x: TRCxContext;
begin
  RCxInit(x,'Passwort');
  RCxenCode(x,mStream,mstream,mStream.size); // Zugriffsverletzung
  RcxDone(x);
  mStream.Position:=0;
  mStream.saveToFile(fileName);
end;



procedure TForm1.Button6Click(Sender: TObject);
var
test : TMemoryStream;
begin
  test := TMemoryStream.create;
  test.loadfromfile('C:\Dokumente und Einstellungen\masteman\Desktop\TESTPROGRAMM\data.sux');
  encodeFile('C:\Dokumente und Einstellungen\masteman\Desktop\TESTPROGRAMM\data.sux',test);
end;

habe ich da was falsch gemacht oder kann RCx das einfach nicht ?

gruß
Manu