CalidadJPEG no me funciona :(
 

Saludos de nuevo foreros tengo un problema, lo que quiero es realizar es:
Poner una imagen en un Image8:TImage y un labelX y un Slidebar, en el cual al momento de mover el Slidebar tenga una posición es decir el valor de la calidad JPEG que se esté aplicando y al mismo tiempo que se refleje en el Image8 y en el LabelX ponerle el tamaño del archivo JPEG, pero pasa que no me funciona, a qué se deberá? según mi lógica debería ser así pero nada :S
El Image ya tiene cargada la imagen, este es mi código no sé alguien tuviera la bondad de ayudarme por favor :) gracias

Código Delphi [-]
var
valor:integer;
jpg:TJPEGImage;
Stream:TStream;
ImgBitmap: TImagingBitmap;
ImgData: TImageData;
begin
  try
  InitImage(ImgData);
  Stream:=TMemoryStream.Create;
  valor:=(100-CalidadJPEGSlide.Position);
  CalidadJPEGSpin.Value:=valor;
  fQualityJPEG:=CalidadJPEGSpin.Value;
  {**********************************}
  jpg:=TJPEGImage.Create;
  jpg.Assign(Image8.Picture.Graphic);
  jpg.CompressionQuality:=fQualityJPEG;
  jpg.compress;
  jpg.SaveToStream(Stream);
  stream.Position:=0;
  //Imaging.LoadImageFromStream(stream,ImgData);
  {************************************  }
   if stream.Size >=1048576 then Label67.Caption:=FloatToStr((stream.Size)/1048576)+' MB'  else   Label67.Caption:=FloatToStr((stream.Size)/1024)+' KB';
 // ImgBitmap := TImagingBitmap.Create;
 // ImgBitmap.AssignFromImageData(ImgData);
 // Image8.Picture.Graphic:=ImgBitmap;

  finally
   // ImgBitmap.Free;
    stream.Free;
    jpg.Free;
 end;

Resuelto
 

Disculpen las molestias, solo me faltaba compress ¬¬ no sabía :S ya lo agregué pero :( me salio el erro 42 :S cuando lo trato de cargar al Image 8 :S noooooooo!! edito el código para corregirlo.