Moin Moin!
zuerst mal sagenhaften vielfältigen Dank.
Ich hatte bis gestern abend auch schon ein paar Dinge enträtseln können, bin dann aber am Alphaformat=afDefined hängengeblieben.
Die Zeile mit
ImageCollection.Draw(bm.Canvas, Rect(0, 2 * wic.height div 3,wic.Width div 3, wic.height), 'Star');
habe ich noch umgeändert in
ImageCollection.Draw(bm.Canvas, Rect(0, 0, wic.height,wic.Width), 'Star');
damit der Stern etwas größer wird.
Nochmal: Vielen herzlichen Dank für deine Hilfe oder eigentlich schon fürs mitprogrammieren - und dann noch mitten in der Nacht wie ich eben sehe! Hut ab!
creehawk