Grundsätzlich kann man JPEG-Daten nicht mit einem weiterem Komprimierungsverfahren (LZH, ...) verkleinern.
Man muss schon weitere Verluste in der Bildqualität in Kauf nehmen, damit die Datenmenge kleiner wird.
Also:
Delphi-Quellcode:
MyJpeg.LoadFromStream(BlobStream);
MyJpeg.CompressionQuality := 10; // 100%=beste Qualität 1%=schlechteste Qualität/kleinste Datenmenge
MyJpeg.Compress; // neu komprimieren
MyJPeg.SaveToStream(BlobStream);