Предлагаю исходники программы Photo-Lite на Delphi (с подробными комментариями).
Описание программы:
Вам часто приходиться сталкиваться с тем, что надо отправить фотографию через Интернет (например по электронной почте, а объем ее достаточно большой и она не только потребляет трафик, но и влезет то не в каждый ящик. Эта бесплатная программа позволит вам легко и быстро справиться с этой проблемой. С помощью нее вы можете изменить размеры и качество изобращений, что существенно уменьшит размер файла с фотографией.
Отзывов от покупателей не поступало.