Резка картинок на двое

Через перетаскивание выделенного или контекстное меню с несколькими файлами jpg (как перетаскиванием так и выделением) нужно реализовать алгоритм:

1) сохранив исходный путь и имя файла, н. "c:/1/002.jpg"

2) записать в исходный путь половинки файлов по ширине: 002_01.jpg и 002_02.jpg (разобраться если ширина нечетная, одну из сторон можно уменьшить на пиксель, другую увеличить, н. целочисленное деление на 2 – одна сторона, остаток – другая).

3) стереть оригинал

Преимущественно проект на Delphi с исходным кодом, чтобы можно было вносить правки.

Из поиска: http://www.cyberforum.ru/delphi-beginners/thread689650.html

Жду Ваши предложения с ценой и кратким описанием.