TJPEGImage 클래스에 보면
Compress 메소드가 있습니다.

JPG := TJPegImage.Create; 혹은 Image 의 객체(jpg)
BMP := TBitMap.Create;
BMP.Assign(JPG);

JPG.CompressionQuality := 70;
JPG.Compress;
JPG.SaveToFile(위치);

문경재 님이 쓰신 글 :
:
: 안녕하세요
:
: 이미지를 jpg같은 포멧으로 저장할떄
:
: Image1->Picture->SaveToFile("c:\\image.jpg") ;
:
: 이런식으로 저장을 하였는데요
:
: 용량이 꽤 많이나와서요
:
: 이미지 품질이 좀 떨어지더라도 이미지 용량을 줄일수 있는 방법이 있나요??