Pixmap manipulation and code optimisation

full black?
with createpixmap

Pixmap:TPixmap=CreatePixmap(Pixmap.Width,Pixmap.Height,Pixmap.Format)