¿Comprimir más?
Si de por si el formato JPEG es un "formato comprimido" de una imagen... para que comprimir más aún.
No creo que tenga sentido comprimir una imagen JPG. No ganarías demasiado espacio.
Ahora, si tu pregunta es ¿Como comprimir una imagen JPEG con Delphi? La respuesta: en torry.net hay componentes que lo hacen (y no sólo imagen, sino texto, etc).
Saludos,