title: DELPHI : What is the best way to compress max and to keep quility of BITMAP
body: <p>I have a function that I made for compressing bitmap to JPEG.</p>
  
  <pre><code>procedure BmptoJpeg(Bmp : TBitmap; JpgStream: TStream);
  var
    Jpg: TJPEGImage;
  begin
    Jpg := TJPEGImage.Create;
    try
      Jpg.Assign(Bmp);
      Jpg.CompressionQuality := 10;
      Jpg.Compress;
      Jpg.SaveToStream(JpgStream);
  
    finally
      Jpg.Free;
    end;
  
  end;
  </code></pre>
  
  <p>But this is not suitable for good quality of Original Bitmap.
  Is there another way to keep quality and to compress max Bitmap?
  Another method without compressing to JPEG is also good for me..
  Only compressing max and keeping quality is my target </p>