Копирование части PNG файла в другой с учетом альфа канала

[KriatonuS]

Суть такова: Использую pngimage. Есть 4 png файла. Задний фон, средний план, движимый объект и передний план. Все работает с учетом даже альфы:
...
png_fon.Canvas.Draw(0,0,png_fon_r);
png_fon.Canvas.Draw(0,0,png_srednii _plan);
Png_fon.Canvas.Draw(x,y,png_figura) ;
Png_fon.Canvas.Draw(0,0,png_peredni i_plan);
Form1.Canvas.CopyRect(BufferOn,png_ fon.Canvas,BufferOff);
...
Но! Понимаю, что для увеличения скорости сработки, правильнее копировать прямоугольную область всех слоев, размером движимого объекта и выводить в нужном месте. CopyRect работает, но отсекает Альфу. На чистом битмапе не хочу. Кто подскажет, как заменить CopyRect для PNG с альфой. Буду очень благодарен за код. Мой движок работает и так, но медленно и неудобно анимированные объекты записывать в разные файлы.


Хочу добавить: использую Delphi 7, верстаю дизайн 2D игры прямо в фоточтобе, за что и люблю PNG. Очень нужна помощь, ибо не программер а дизайнер.

[Rin]

Что дизайнер по нику заметно ). Не могу быть целиком и полностью уверен в ответе, ибо с альфа-каналом не пробовал эту функцию, но попробуй использовать BitBlt.
Пример использования и описание:

BitBlt(Form1.Canvas.Handle,x+i,y+i,x+100+i,y+i+100,
BM.Canvas.Handle, const_x , const_y ,SRCCOPY)

Эта функция копирует (если последний параметр равен SRCCOPY) растровую область из источника в приемник. Она может не просто копировать, но и инвертировать цвета, копировать маски, но должны стоять другие значения.
Параметры этой функции:
1) дескриптор приемника (Handle) типа HDC;
2) координата Х левого верхнего угла области, в которую копируем;
3) тоже самое, только для Y;
4) размер области приемника по Х;
5) размер области приемника по Y;
6) дескриптор источника (Handle) типа HDC;
7) координата Х левого верхнего угла области, из которой копируем;
8) тоже самое, только для Y;
9) код растровой операции.