Визуальное отображение сжатия картинки

[Lokos]

Здравствуйте.
Как это можно реализовать по проще? У меня появилась такая идея
сохраняем отдельно оригинал и сохраняем его копию и производим ее сжатие и отображаем в Image. Если не устраивает то перетираем копию оригиналом и опять делаем над ним действия сжатия.
Может есть способ попроще?

[Человек_Борща]

зачем копипровать? может байтики мерять? Отношение оригинала к сжатому?

[Lokos]

Сообщение от Человек_Борща

зачем копипровать? может байтики мерять? Отношение оригинала к сжатому?

а как выводить все это дело на просмотр чтоб визуально можно было видеть изменение рисунка

[Lokos]

сделал так

procedure TFormCompreesForm.trUrovenChange(Sender: TObject);
var
   jpg:TJPEGImage;
   potok:TMemoryStream;
begin
   lblUrovenSzat.Caption:='Сжать на '+IntToStr(100-trUroven.Position)+'%';
   jpg:=TJPEGImage.Create;
   potok:=TMemoryStream.Create;
   jpg.Assign(imgOriginal.Picture.Graphic);
   jpg.CompressionQuality:=(100-trUroven.Position);
   jpg.Compress;
   jpg.SaveToStream(potok);
   imgEdit.Picture.Graphic.LoadFromStream(potok);
   lblRazmerCompress.Caption:=IntToStr(potok.Size);
   potok.Free;
   jpg.Free
end;

но при загрузке потока вылетает ошибка обращения к несуществующему адресу почему(((

[Аватар]

Попробуйте так

potok.position:=0;
imgEdit.Picture.Graphic.LoadFromStream(potok);

[Lokos]

Сообщение от Аватар

Попробуйте так

potok.position:=0;
imgEdit.Picture.Graphic.LoadFromStream(potok);

пробовал та же проблема. А вот если сохранять в файл и потом от туда загружать то все работает.