Hjælp med JvCaesarCipher og ZipForge?

Hejsa

Jeg bruger Delphi 7 og de 2 ovennævte komponenter.

Jeg læser data fra en fil med en TFileStream og så laver jeg en copyfrom til en TMemoryStream.

Så kryptere jeg min TMemoryStream med JvCaesarCipher og så skulle det jo puttes ned i en Zip fil, via ZipForge.

Hvordan kan det være at data'erne ikke bliver krypteret i zip filen?

Her lige lidt kode:

procedure TForm1.Button3Click(Sender: TObject);
var
  fs : TFileStream;
begin
  Button3.Enabled := false;
  Ms1 := TMemoryStream.Create;
  Ms1.SetSize(2048);
  Ms1.Clear;

  fs := TFileStream.Create('C:\temp\P1001228.jpg', fmOpenRead);

  DeleteFile('c:\temp\test.zip');
  ZipForge1.FileName := 'c:\temp\test.zip';
  ZipForge1.OpenArchive;

  repeat
    Button3.Caption := 'Reading';
    Ms1.Clear;
    if fs.size-fs.Position < Ms1.Size then
      Ms1.CopyFrom(fs, fs.size-fs.Position)
    else
      Ms1.CopyFrom(fs, Ms1.Size);

    Button3.Caption := 'Encoding';
    JvCaesarCipher1.EncodeStream('dfasfsa', Ms1);

    Button3.Caption := 'Packing';
    ZipForge1.AddFromStream('P1.jpg', Ms1, False, 0, 0, 32, 0);
    Form1.Caption := IntToStr(fs.Position);
    Application.ProcessMessages;
  until fs.Position >= fs.Size;

  ZipForge1.CloseArchive;
  fs.Free;
  Ms1.Free;

  Button3.Enabled := true;
end;