[U.B.M.]

Всем доброго!

Возник вопрос:

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  jpeg : TJpegImage;
begin
  jpeg := TJpegImage.Create;

  jpeg.Assign(ImageIn.picture.graphic);
  jpeg.Grayscale := checkbox1.Checked;
  ImageOut.Picture.Graphic.Assign(jpeg);

  jpeg.Destroy;
end;

Всё нормально - картинка сереет и цветнеет при постановке/снятии галочки.

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  jpg : TJpegImage;
begin
  Edit1.Text := IntTostr(TrackBar1.Position);
  jpg := TJpegImage.Create;
  jpg.Assign(ImageIn.picture.graphic);
  jpg.CompressionQuality := TrackBar1.Position;
  jpg.DIBNeeded;
  jpg.Compress;

//  jpg.SaveToFile('D:\Out.jpg');

  ImageOut.Picture.Graphic.Assign(jpg);
end;

мотаю ползунком - качество картинки не меняется (при этом в файл сохраняется скомпрессованная картинка).

Что не так?