3042, ой и не знаю чем помочь пока, для начало надо переделать с TCanvas на PCanvas в дельфине перестанет падать в рунтайм (посему и бета так как делал с бадага) Сама функция прорисовки упёрта из коммерческого продукта, вот так вот