zLib and Stream?

I have most of the code, I just need a little help if possible.  This code does not seem to work.  If I create a TFileStream, then I can save a bitmap picture and LoadFromStream and it brings it back.  However, I am trying to compress the File, and when you use the file, then it decompresses it into memory and uses it, instead of extracting a file somewhere.  Anybody have any ideas why this does not work.  I am using the zLib component that comes with Delphi.

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}

procedure TfrmMain.btnCompressClick(Sender: TObject);
var
    NewFile: TMemoryStream;
begin
  NewFile := TMemoryStream.Create;
  try
    image1.Picture.Bitmap.SaveToStream(NewFile);
    OutFile := TFileStream.Create('e:\001.stm', fmCreate);
    try
      ZStream := TCompressionStream.Create(clFastest, OutFile);
      try
        ZStream.CopyFrom(NewFile, 0);
      finally
        ZStream.Free;
      end;

    finally
      OutFile.Free;
    end;
  finally
    NewFile.Free;
  end;
end;

procedure TfrmMain.btnDecompressClick(Sender: TObject);
var
  Count: Integer;
  NewFile: TMemoryStream;
begin
  InFile := TFileStream.Create('e:\001.stm', fmOpenRead);
  try
    NewFile := TMemoryStream.Create;
    try

      ZStream := TDecompressionStream.Create(InFile);
      try
        while True do
          begin
            Count := ZStream.Read(Buffer, BufferSize);
            if Count <> 0 then NewFile.WriteBuffer(Buffer, Count) else Break;
          end;
        image1.Picture.Bitmap.LoadFromStream(NewFile);
      finally
        ZStream.Free;
      end;
    finally
      NewFile.Free;
    end;
  finally
    InFile.Free;
  end;

end;

end.