Image-Resize und abspeichern mit Qualität

[TriphunEM]

Hallo,

hab schon viel gesucht, aber keine Hilfe gefunden.

Ich mache eine Screenshot und lad den in die Image32-Kompo der GL32.
Der Screenshot soll auf 160x120 verkleinert werden.

Allerdings bekomm ich das nicht hin, das er das in der Image32-Kompo verkleinerte Bild auch so abspeichert.
Er speichert es immer wieder 1:1 ab.

Was mache ich falsch???

Delphi-Quellcode:

begin
  sourceBitmap := TBitmap.Create;
  targetBitmap := TBitmap.Create;
  bmp := TBitmap.Create;
  jpeg := TJPEGImage.Create;
  try
    try
      {**********
        In sourceBitmap befindet sich der Screenshot
      ***********}

      // Resize the src bitmap 
      Mainform.jpgImage.Bitmap.Assign(sourceBitmap);
      Mainform.jpgImage.width := 160;
      Mainform.jpgImage.Height := 120;
      Mainform.jpgImage.ScaleMode := smResize ;

      // Create a JPEG from the Bitmap and save it
      bmp.Assign(Mainform.jpgImage.Bitmap);

      jpeg.Assign(bmp);
      JPeg.CompressionQuality := 75;
      jpeg.SaveToFile('thumpnail.jpg');
     
    finally
      jpeg.Free;
      sourceBitmap.Free;
      targetBitmap.Free;
      bmp.Free;
    end;
  except
    // Error Code
  end;
end;