[odd]

По просьбе demon112 создал простенькую библиотеку по вырезанию части картинки с учетом прозрачности.

функции такие:

LoadImage(im: Image) - Загрузить картинку в библиотеку

Reset - Удалить картинку из библиотеки

Image GetImage(i: Integer) - Возвращает квадратную картинку размера высота * высота картинки под номером i
т.е. подразумевается, что у вас в файле содержится много квадратных картинок в горизонтальном ряду

Image GetArea(x: Integer; y: Integer; w: Integer; h: Integer)- Вырезает из картинки произвольный прямоугольный кусок
x, y - координаты верхнего левого угла блока
w, h - ширина и высота блока

Данная библиотека пригодится тем, у кого в программе много иконок в меню или другой графики.
Гораздо экономнее по размеру хранить все картинки в одном файле и извлекать их с помощью данной библиотеки.