JPEG.CompressionQuality

[MyDelphi]

Hallo

um ein JPEG (Image.Picture) zu kompremieren, habe ich mit diesem Code versucht
Aber das Bild (image2) hat immer die selbe Qualtät egal was ich in Edit1.Text eintrage !

PROCEDURE BMPtoJPG (CONST  myBMP: TBitmap; myJPG: TPicture);
VAR
Bitmap: TBitmap;
JPEG : TJPEGImage;
BEGIN
Bitmap := TBitmap.Create;
JPEG := TJPEGImage.Create;
TRY
Bitmap.Assign(myBMP);
JPEG.CompressionQuality := StrToInt(Form1.edit1.Text);
JPEG.Assign(Bitmap);
myJPG.Assign(JPEG);
FINALLY
Bitmap.Free;
JPEG.Free
END;
END;


procedure TForm1.Button1Click(Sender: TObject);
begin
image2.picture:= nil;
BMPtoJPG(Image1.Picture.Bitmap,Image2.Picture);
end; 

[Bernhard Geyer]

Wurde schon in der Delphi-Praxis gestellt. Lösung wurde auch in Beitrag #2 gegeben.